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Introduction 


Almost anything new and different can be exciting for a time. And 
almost all excitement wears off after a while. For many people, own- 
ing their own microcomputer is such an experience. At first there 
seem to be thousands of things to do to make life easier and more 
interesting. For many people, however, the magic fades and the com- 
puter becomes simply a checkbook balancer and game player if it 
doesn't actually end up in the closet. The intent of this book is to 
provide a new infusion of excitement about what you can do with 
your home computer. 

With one exception, the programs in this book are quite short, 
easy to copy, and easy to modify. The text will suggest ways you can 
tailor the programs for your own use—for party games, data analysis, 
school work, or learning to program. The 41 1/2 things to do range all 
the way from a dating program that will match you with a potentially 
congenial date to a mini-word processor, a Dungeons and Dragons 
dice rolling program, an excuse generator, and strategy and music 
games. It includes practical programs such as a guitar tuner and chord 
teacher, a metric converter, and a comparison shopping program. It 
also contains party games and other activities that you can do with 
your friends. Underlying all of these programs are the ideas that you 
can modify a program and change it to suit your purposes and that 
programming can be fun and lead to fun as well. 

The central part of the book provides you with a number of 
simple computer utilities. The most common utilities in our lives are 
gas, electricity, and the telephone. They are utilities in that they can 
be used in many different ways. They provide the energy or the 
instrument and you determine the particular use. The same thing is 
true of computer utilities. They provide a form that you can use in 
many different ways with a simple input of your own. Thus, the 
balloting program in this book can be used for club elections, picking 
the top ten records, doing personal preference polls, etc. The utility 
gives you the structure and you provide the content. The same is true 
of the graph generating program. It can be used to measure sales and 
inventories, to compare school grades, to illustrate the results of 
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science experiments, or for opinion surveys. The text will suggest 
some applications for the utilities and show you how to list and 
change the programs in the book. You should feel free to go beyond 
the text and create your own modifications, and, maybe, build your 
own utilities. 

All of the programs in this book fit on one disk. With the 
exception of the program for the Dozo game, they are easy to copy and 
take up less than two pages of text. It would make sense for you to 
copy and save on disk those programs you want to use or modify. 
Copying the same program more than once is a bore and you can 
always save your original copy as well as your modifications. After 
you copy a program, however, run it several times to make sure that 
some simple copying error didnt slip in. Try all the options the pro- 
grams offer. Play to win, to deliberately lose, and try any way you can 
to trick the program into bombing. We've done this ourselves and are 
confident that the programs work. But, human error always has a way 
of creeping in. We have been careful to eliminate ours and believe it 
makes sense for you to take the extra time to check your work. 

Finally, for the 1/2 of a thing you can do with your computer. 
Actually it is not one-half of a thing but many halves—many ideas 
that you can turn into programs as you become comfortable with 
BASIC. These final ideas are just starters, teasers, suggestions of ways 
in which you can focus the use of your programming skills on creat- 
ing programs others will enjoy using. 
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Т. programs in this section all fool around with words. They 
range from an anagram generator to an excuse generator and include 
word hunt puzzles, a sentence scrambler, and even an arcade-type 
game that will teach you how to use the keyboard. Many of the 
programs are easily modified and we encourage you to copy them and 
change them in any way you like. 
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Joystick Word Hunt 


You probably have seen many word hunt puzzles. They consist of a 
square or rectangle of letters in which a number of words are hidden 
either vertically, horizontally, or diagonally, and backwards and for- 
wards. Here is a very simple word hunt grid and the list of words 
hidden in it: 


hidden words: last, cat, rat hidden word grid: 


curl, pot, coat or | 


apoo 
оо m 


ar 
tu 
p с 


The object of the word hunt is to find the words on the list hidden in 
the grid. 

The program for Joystick Word Hunt allows you to choose any 
15 words of up to 15 letters long. Then, the computer automatically 
generates a word grid for you or your friend to solve. Here is a sample 
list and the grid the computer generated. You'll find that even if you 
chose the words yourself it is not easy to find them all in the grid. 


3x3 JOYSTICK WORD HUNT 3X 
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You need a joystick in port 1 to play this game. Move the 
flashing cursor on the game board to the first letter of any word you 
find. Press the joystick button. A message will appear: WORD 
NUMBER. Type only the number that corresponds to the word you've 
found. Press RETURN. If you've found the correct match, the word 
will appear in inverse characters on the grid. Keep playing until you 
find all 15 original words. 

If you want to play another game, press the [F1] function key on 
the right of your Commodore keyboard. 


10 REM +++ JOYSTICK WORD HUNT жж 

100 80254272: CR=49152: CYzCR*10: CX2CY*1:G 
OSUB1 000: POKES3280, O: POKES3281,0 

110 POKEDSO+S, 0: POKESO+6, 240: PRINTCHRS (1 
47) CHR$ (5) : 6070700 

200 GOSUB800: FORM=0T014: L=LEN (WS (М) ) XT= 
2: УТ=6+М: GOSUB900: PRINTM+13CHRS(157)5"." 
210 XD=INT (РМО (1) #3—1) : YD=INT (RND (1) *#3—1 
): IF XD=OANDYD=OTHEN210 

220 Х=ІМТ (КМ0 (1) *(15-(АВЗ (XD) *#(L—-1))))21 
FXDXOTHENXz14-—X 

250 YsINT(RND(123s(15- (ABS (VD) * (L712) 0) : I 
FYDXOTHENYz14-Y 

240 XP=X: YP=Y:FORT=1TOL: IFXP<OORXP>140RY 
Р<ООКҮР>14ТНЕМ210 

250 ХТ=22+ХР: YT=6+YP: GOSUB900: IFK< >S2AND 
K+64< »ASC (MIDS (ИФ (M) , T, 1) ) THEN210 

260 ХР=ХР+Хр: YP=YP+YD: NEXT: X (М) =X: Y (М) =Y 
= ХО (М) =XD: YD (М) ZYD: FORT=1 TOL 

270 ХТ=22+Х: YT=6+Y 5 60848900: PRINTMIDS (WS 
(N), T, 1): Х=Х+Хр: Y=Y+YD: NEXT: ХТ=7 : YT=6+M 
280 GOSUB900: PRINTWS (M) : NEXT 

290 FORX=0T014: FORY=0TO14: XT=22+X: YT=6+Y 
s GOSUB900 

500 IFK=32THENPRINTCHRS (ІМТ (РМО (1) #26) +6 

3) 

310 MXT: МЕХТ: Х=0: Ү=0: MO 

520 2=РЕЕК (56521) АМ015: IF (PEEK (56521) AND 
16) =ОТНЕМ5ОО 

S30 IFZ>8ANDZ< 12ТНЕМХ=Х-1 : IFX<OTHENX=14 

340 1Е2>4АМО2<ВТНЕМХ=Х+1 š IFX>14THENX=0 

550 IFZ=100RZ=140RZ=6THENY=Y-1: IFY<OTHEN 

Y=14 

$60 IFZ=90RZ=130RZ=STHENY=Y+1: IFY>14THEN 
=0 

570 IFZ<>15THENPOKESO+4, 35: POKESO+4, О 

580 ХТ=Х+22: ҮТ=6+Ү: 60518900: КО=К: IFKO< 12 

STHENPRINTCHRS (18) š; CHR$ (КО+64) 

390 IFKO>127THENPRINTCHRS (КО-64) 
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400 GOSUB900: IFK0»127THENPRINTCHR$ (18) ; 

410 PRINTCHR$ ( (KOAND1 27) +64) : GOTO320 

500 ХТ=4:ҮТ=4: 60318900: РОКЕ! 98, o: INPUT"W 

ORD NUMBER"; 6$: 6=УА (8$) -1: IFG=—1THENSOO 

510 60318900: PRINT" "s 

IFG»14THEN320 

520 IFX (6) < >XORY (6) < >УТНЕМВОТО520 

550 XP=X: YP=Y:FORT=1 TOLEN (W$ (6) ) : ХТ=22+Х 

Р: YT=6+YP: 60818900 | 

540 РАТМТСНА$ (18); MIDS (WS (8) , T, 12 I: ХТ=6+ 

T: VTS: GOSUB900: PRINTMIDS$ (us (80, 7, 1) 

550 XP=XP+XD(G) : УР=УР+У (G) : NEXT: XT=4: YT 

SA: X (G) =—1:WW=WW+1 : IFWW< 15THENS2O 

560 XT=4:YT=4:GOSUB900:PRINT"YOU DID IT! 
PRESS <Р1>" 

570 GETAS: IFAS< >CHRS (133) THENS70 

580 RUN 

700 DIMWS(14),X(14),Y¥(14) ,XD(C 14) , vp (14): 

GOSUBSO00: XT22: ҮТ=5: GOSUB900 

710 PRINT"ENTER FIFTEEN WORDS... : FORT O 

T014: ХТ=2: YT=T+7: GOSUB900 

720 PRINTT+13CHR$ (157) ". "š TAB (7) š š INPUTW 

$ (T) : IFW$(T) =" "ТНЕМТЕТ-1 : NEXT 

730 WS(T)=LEFTS (ИФ (T), 15) : NEXT: ХТ=2: УТ=5 

: 60518900: РАТМТ"АРЕ YOUR WORDS CORRECT?" 

740 ВЕТАФ: IFAS=""THEN740 

750 IFA$="Y"THEN200 

760 RUN 

800 PRINTCHR$ (147) : PRINT: PRINT" жж 

ж JOYSTICK WORD HUNT жж": RETURN 

900 РОКЕСХ, ХТ: POKECY, YT: SYSCR: AD=YT#40+X 

771024: К=РЕЕК (AD) : POKE198, o: RETURN 

1000 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: М 

EXT 

1010 POKESO+24, 15: POKESO-1, 100: RETURN 

1020 DATAZ4, 174, 10, 192, 172, 11, 192, 76, 240 


‚ 255 


Anagrams 


СССССССССССССССССССССССССССССССССССССС СК 


Ап anagram is a scramble of letters. For example, the word and has 
the following anagrams: 


паа 
nda 
adn 
dna 
dan 


Sometimes the anagram of a word gives rise to other words. For exam- 
ple, consider these two sets of anagrams: 


word: top 
anagrams: pot 
pta 
tpa 
opt 
otp 


In this case, two anagrams of “top” are also words—‘opt” and "pot." 


word: meat 

anagrams: team eatm 
tema eamt 
tmea emat 
tmae emta 
tame etma 
taem etam 
aemt meta 
aetm mate 
amet maet 
amte mtae 
atem mtea 
atme 


Of the 24 variations, only three and at most four (if you accept meta 
as a word) make up words. An interesting and, so far as we know, 
unsolved word problem is whether there is a four letter word all of 
whose anagrams make up other words. You could easily write a com- 
puter program that could generate all the anagrams of any given word 
using string variables. However, the program here is more of a games 
form. You type in any word and the computer scrambles it. Then ask 
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СССССССССССССССССССССССССССССССССССССССЯ 


a friend to try to unscramble it. The computer will keep score and tell 
your friend when he or she has the correct unscrambling. 


10 REM K* ANAGRAM s 

100 PRINTCHR$ (147) : PRINT: PRINT: PRINT" 
«нк ANAGRAMS хх“ 

110 605018500: PRINT: PRINT: PRINT: РАТМТ"ЕМТ 

ER YOUR ORD. . : PRINT: INPUTAS 

120 PRINTCHRS (145) 3 CHRS (145) 5 CHR$ (145) i: 

IFAS=""THENRUN 

150 PRINT"TRY TO SOLVE THIS ANAGRAM...": 

PRINT 

140 LsLEN(A$) : DIN (L) : FORT=1 TOL 

150 R=INT (RND (1) *L) +1 : ТРИ (К) =-1ТНЕМ150 

160 W(R)=—-1: BS=BS+MIDS (AS, К, 1) : NEXT 


170 PRINTB$;"  ":G80SUB3OO:PRINTTAB (20-6 / 
2); 
180 FORT=1 TOL: PRINTCHRS (164) ; : NEXT: GOSUB 
$50 


190 B$z"":INPUTB$: IFBS=""THENPRINTCHRS (1 
45) š CHR$ (145) : 8070190 
200 FORT=1TOL 
210 IFMID$(A$,T,1) HI DS (BS, T, 1) THENGOSUB 
300: PRINTTAB (19-L/24T) $MID$ (АФ, T, 1) 
220 NEXT: IFA$-BS$THENZSO 
230 GOSUB300: GOSUBSSO: PRINT" 
"3 CHRS (145) 

240 8070190 
250 60508500: 60818550: PRINT: PRINT: PRINT“ 

THAT’S ІТ!" 
260 GETAS: IFAS=""THENZ60 
270 RUN 
300 PRINTCHRS (19) : PRINT: PRINT: PRINT: PRIN 
T: PRINT: PRINT: PRINT: RETURN 
350 PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: 
PRINT: PRINT: RETURN 
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Sentence Scrambler 


This program will take a sentence and scramble all of the words in it. 
For short sentences, the unscrambling is quite easy. For example: 


9 


walk. took а | 

quite easily unscrambles into: 

| took a walk. 

Try this one, however: 

at time the You stars. tell looking by the can 


When you type in the program be very careful about capitals, punc- 
tuation, and spacing. The computer responds to all of these different 
aspects of writing. Spaces between words are particularly crucial in 
mixing up sentences because sensing spaces is the only way the 
computer can tell where a word ends. The computer cannot read, at 
least yet. A blank space is just another symbol to it, one which, in this 
program, indicates where a unit to be scrambled ends. 

The main functions used in this program are LEN(A$) and 
MID$(A$,X,Y}. LEN(A$) tells you the length of any word you store in 
the computer's memory. For example, in Commodore BASIC, if AS i is 
the word "FINE" then 


LEN(A$)=4 


The function MID$(A$,X,Y) lets you print out any letter or sequence 
of letters in A$. Thus, using the same example: 


MID$(A$,1,1)-F 
and MID$(A$,2,2)-IN 


Here is a simple educational program illustrating the use of LEN and 
A$: 


10 DIM A$(26),B$(1) 

20 A$-"ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

30 PRINT "HOW MANY LETTERS ARE IN THE ALPHABET? 
40 INPUT X 

50 IF Х= LEN (A$) THEN PRINT "GOOD. NOW TRY THIS:" 

60 LET Y=INT(RND(1)*26)+1 

70 РАМТ "WHAT LETTER COMES ";Y;"th in the alphabet?" 
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сссссссссссссссссссссссссссвесесссссссссссс 


80 ІМРОТ В$ 

90 IF B$=(A$,Y,1) THEN PRINT “RIGHT.” 

100 IF B$ < > MID$(A$,Y,1) THEN PRINT “РМ SORRY YOU 
MISSED.” 


This program checks the length of A$ and matches it with the 
number you put in for X. Then it picks a random position out of A$ 
using the Y variable and asks you which letter corresponds to that 
position. This is just a simple use of LEN and MID$. Play with these 
functions and look at your BASIC Reference Manual for more infor- 
mation on how to use them. 

Now here is the scrambled sentence program: 


10 REM жжж SENTENCE SCRAMBLER ### 
100 CR249152: СҮ=СК+10: СХ=СҮ+1 : GOSUBS00 
110 POKES3280, o: РОКЕ55281, o: РКІМТСНКФ (14 
7) š CHR$ (5) 

115 DIM 4(50),M(50),4$(50),B$ (50) : POKES4 
296, 15: POKES2277 , 0: POKES4278, 240 

120 PRINT:PRINT:PRINT" инж SENTENC 
E SCRAMBLER жән" 

130 X22:Y27:808UB400:PRINT"ENTER YOUR SE 
МТЕМСЕ. . . : PRINT: INPUTS$: PRINT: PRINT 

140 L=LEN (S$) :C=0:P=1!:EE=0:FORT=1TOL: BS ( 
L)z" ":NEXTT 

150 FORT-1TOL:IFMID$(S$,T,1)2" "ТНЕМ2ОО 
160 Z$-MIDS$(S$,T, 1): IFZ$=". "ОК2%=" ! "ORZ$ 
z"2"THENEE-1:GOTO200 

170 МЕХТТ: Т=Т-1:ЕЕ=1 

200 Е (С) =Т-Р+1: АФ (С) =MID$ (8$,Р,Т-Р+1):1Е 
ЕЕ=ОТНЕМС=С+1 : Р=Т+1 : MNT 

250 (С) = (С) +1: РОАТ=ОТОС 

260 В=1МТ (NN (1) + (2+1) ) +1: IFBS(R) ="#"ТНЕ 
№260 

270 B$(R)="#":M(R-1)=T:NEXTT 

280 X=2:Y=7:GOSUB400:PRINT"TRY TO UNSCRA 
MBLE ТНІЅ....":РКІМТ: АФ (С) =АФ (С) +" " 

290 Y=9:GOSUB600: X22: 60818400: FORT=OTOC: 
PRINTas (МСТ) ) 3 : NEXT 

$00 Х=2:\У=16: 60318400: INPUTBS 

505 ТЕВ$< >S$THENX=15: Y=21: 60308400: PRINT 
"TRY AGAIN": Y=16: GOSUB600: GOTO300 

510 X=14: Y=21:GOSUB400:PRINT"YOU DID IT" 
:POKES4276, 33: FORT=SOTOSOSTEPS 

320 POKES4273, T: FORJ-1TO2OOSTEPSO: РОКЕЗ 4 
272,J:NEXTJ:NEXTT 

330 POKES4276,0 

340 GETKS: ІЕКФ=" "ТНЕМЗ40 
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$50 ким 
400 POKECX, X: POKECY , Y: SYSCR: RETURN 
500 FORBYTE=CRTOCR+9: READA: POKEBYTE, A: NE 
ХТ: RETURN 
510 DATA24,174,10,192,172,11,192,76,240, 
255 
600 X-z1:GOSUB400: PRINT" 
"S RETURN 
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Alphawiz 


This is the basic shoot ‘em up arcade game in its simplest form. The 
game displays the alphabet at the bottom of the screen. A target 
appears above one of the letters at the top of the screen. You have to 
press the correct letter to hit the target. The letters have a small 
amount of fire power and you will see your hits and misses on the 
screen. You get five points per hit and lose five per miss. 

If you want to play a little code game, take a look at the PRINT 
statement at line 120. It tells the computer to print out the alphabet in 
order at the bottom of the screen. Now, if you changed that line using 
a simple shift code as follows: 


ABCDEFGHIJKLMNOPQRSTUVWXYZ 
ZABCDEFGHIJKLMNOPQRSTUVWXY 


then, if you pressed A the Z would shoot; if you pressed B the A 
would shoot, etc. Your shooting would then be in code. After a while 
you could probably figure out the structure of the code. 


10 REM жиы ALPHAWIZ ##%* 

100 830=54272: CR=49152: CYzCR*10: CX2CY-*1: H 
S=-9999: GOSUBSOO 

110 РОКЕЗЗ 280, 11: POKESS281, O: PRINTCHRS (S 
) š СНА$ (147) : ТІФ= "000000": SO 

120 PRINTCHRS (S) š ХТ=7: YT221: GOSUB400: PRI 
NT" ABCDEFGHIJKLMNOPORSTUVWXYZ" 
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150 TX=INT (RND (1) #26) +7: FORT=OTO6: TX (T) = 
RND (1) K -T TX: TY (T) =RND (1) #6415 NEXT 

140 XT=TX: YT24: GOSUB400: PRINTCHRS (166) : X 
T23: YT=23: GOSUB400: GOSUBASO 

150 IFTI23S600THEN3OO 

160 GETAS: IFAS=""THEN150 

170 XT=ASC (A$): ІЕХТ<65ОКХТ>Ф?ОТНЕМ150 

180 ХТ=ХТ-58: POKESO+4, 129: FORYT=20TOOSTE 
F-1: POKESO+1, YT#2+5: GOSUB400 

190 PRINTCHRS (28) ; CHR$ (122) 5; CHR$ (5) ; ` IFY 
T«2OTHENPRINTCHR$ (157) 5 СНКФ (17) з" * 

200 IFYT< >40КХТ< >TXTHENGOSUB400: NEXT: PRI 
NT" “3 POKESO+4, О: POKE198, O: S=S-S: GOTO140 
210 POKESO+4, 128: POKESO+1, 5: POKESO+4, 129 
s PRINTCHR$ (129) : РОКТ=ОТО6: ХТ-ТХ (T) 

220 YT=TY (Т) š GOSUB400: PRINTCHRS (113) š МЕХ 
Т: POKESO+4, 128: ҒОКТ-ОТ06: XT=TX (T) 

230 YT=TY(T) SGOSUB400: PRINT" “NEXT: S=S+ 
5: ХТЕТХ: УТ=4: 60848400: PRINT" "265070120 
500 IFS>HSTHENHS=S 

510 ХТ=17: ҮТ=25: 60848400: PRINT" #**# GAME 
OVER 33*":PRINT" #HIGH: "5; HS; ТАВ (17); 
320 PRINT" PRESS <F1i>"5 

330 GETAS: IFA$<>CHR$ (133) THENSSO 

$40 GOTO110 

400 POKECX, ХТ: POKECY , YT: SYSCR: RETURN 
450 PRINT"SCORE:";S;CHR$(157)" "RETURN 
500 FORBYTEZCRTOCR-*9: READA: POKEBYTE, А: NE 


510 РОРТ=$50Т050+24: POET, О: NEXT: POKESO+2 
4, 15: РОКЕЅ0+5, 10: РОКЕЗО+6 , 9: RETURN 

550 DATAZ4, 174, 10,192, 172, 11,192, 76, 240, 
255 


Creative Name Machine 


Did you ever wonder how people come up with names for computer 
games or businesses or products? Most of the process is free associa- 
tion and fiddling around with words. The computer can often do this 
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as well as people, especially if you make your original lists of words 
interesting enough. This program generates some names you might 
like to use one day. Some of them are COSMOS WEAVER, CHASM 
SPINNER, and VAULT PRODUCER. If you look at lines 550 and 590 
of the program you'll see the DATA statements that provide the 
words for the computer to play with. You can change these with any 
lists you have so long as you remember to separate the words by a 
comma. Line 110 reads a word from the list at 550 and line 120 reads a 
word from 590. The combination is what you see printed out. The 
READ ... DATA .... statement in BASIC allows you to play around 
with lists of data. 
Now try our names and add some twists of your own. 


1 КЕМ 3x4 CREATIVE NAME MACHINE #*** 

2 REM 

100 СК=49152: CY=CR+10: СХ=СҮ+1 : GOSUBSOO: P 
OKES3281, 11: PRINTCHRS (S) 2 DIMAS (1, 100) 
110 READAS (0, 81): 818171: IFAS (O, 61-1) <>" 
END OF LIST"THEN110 

120 READAS (1,62) : 62=62+1: IFAS (1, 62-1) <>" 
END OF 115Т"ТНЕМ120 

130 61=61-1:62=62-1 

140 POKES3280, ІМТ (RND (1) #16) : PRINTCHRS (1 
47) 

150 A$=A$ (О, INT (РМО (1) #61) ) +" "+АФ (1, INT 
(RND (1) *G2)) 
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CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


160 


РОКЕСХ, 20-LEN (A$) /2: POKECY, 10: SYSCR: 


PRINTAS 


170 


570 


GETAS: IFAS=""THEN170 
GOTO140 
FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 


RETURN 
DATA24,174,10,192,172,11,192,76,240, 


REM Xxx WORD GROUP #1 +++ 
DATADUNGEON, VAULT, CRYPT, CAVERN, ADVEN 
‚ WORLD, ENCOUNTER, SPACE, CHASM 

DATAUNI VERSE , MICROCOSM, COSMOS 

DATA END OF LIST 


580 REM +++ WORD GROUP #2 +++ 
390 DATAMACHINE, WEAVER, SPINNER, VENTURE 
600 DATABUILDER, SYNTHESIZER, INVENTOR, CRE 


ATOR 


s COMPOSER, PRODUCER 


610 DATA END OF LIST 


Did you ever wish you had an automatic excuse generator that would 
cover you when you were late for work, forgot to do homework, or 
wanted to get out of a party or meeting? Well, һеге an attempt at one. 
program consists of an empty letter form in which you 
fill in the particulars. If you don't like the way we've done it, you 
change all of the PRINT statements in the program or add some new 
ones of your own. The program is a phoney personal letter generator. 
You can use it to create personalized business letters, invitations to 
parties, etc. Our excuse for including it in the book was to show what 
onse form is like and how easily it can be changed on a 


Basically, this 


a letter or resp 
computer. 
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Excuse Generator 
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DEAR PALLID, 

I'M VERY SORRY THAT I DON'T HAVE 
THE TIME. vou SEE, MY 

BEST FRIEND LOST IT 

WHILE T PICKED FLEAS FROM HIS COAT. 


GEE, Х SURE AM SORRY. X MON T LET 
IT HAPPEN AGAIN. I PROMISE. 


SINCERELY, 
LIUID 


10 REM *#* EXCUSE GENERATOR 333 
100 PRINTCHRS (147) : PRINT: PRINT“ 

EXCUSE GENERATOR" 
110 DIME$(2,7):FORTZOTO2: FORU=0TO6: READE 
$(T,U) : NEXT: NEXT: DEFFNR CX) INF (RND C12 X) 
120 PRINT: PRINT: PRINT: INPUT" YOUR МАМЕ" А 
$: IFAS=""THENAS="ME" 
130 PRINT:PRINT:INPUT"PERSON TO GET EXCU 
SE"; B$: IFBS=" "ТНЕМВФ= "ТЕАСНЕК" 
140 PRINT:PRINT:INPUT"ITEM TO BE EXCUSED 
"$$: IFCS=""THENCS="HOMEWORK" 
150 РАТМТСНЕ$ (147) SPRINT: PRINT"DEAR 38 
g" "SPRINT 
160 PRINT"I’M VERY SORRY THAT I DON’T HA 
VE":PRINT:PRINT"THE ";С$;". YOU SEE, MY" 
170 PRINT: PRINTES(0,FNR(7))5" *; ES (1, FNR 
(7) ) :PRINT:PRINT"UWHILE I ';Е$ (2, FNR (7) ) 
180 PRINT: PRINT"GEE, I SURE AM SORRY. I 
WON'T LET": PRINT 
190 PRINT"IT HAPPEN AGAIN. I PROMISE.":P 
RINT: PRINT: PRINT"SINCERELY, : PRINT 
200 РКІМТАФ 
210 GETAS: IFAS=""THEN210 
220 RUN 
500 DATADOG, DAD, BABY BROTHER, OLDER BROTH 
ER, САТ, BEST FRIEND, BOSS 
510 DATAATE IT, USED IT FOR KINDLING, SLOB 
BERED ALL OVER IT, TORE ІТ TO PIECES 
520 DATASHINED HIS SHOES WITH IT,STOLE I 
T,LOST IT,PICKED FLEAS FROM HIS COAT. 
550 DATAWAS ON А TRIP.,CHANGED HIS DIAPE 
RS.,WASN' T WATCHING.,WAS ASLEEP. 
340 DATAWAS FEEDING HIM CAT FOOD.,STOOD 
BY HELPLESSLY. 
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Т. section contains several number games you may not һауе 
seen before as well as some conversion and sorting programs you can 
use for many different purposes. However, the first program in the 
section is a challenge that comes from Marlyn Burns, the author of 
the I Hate Math Book and Math for Smarty Pants. We translated her 
challenge into computer form. It can be fun to do similar things by 
taking books on mathematical games and recreations and giving 
those challenges a computer twist. Often, the computer can make the 
game more powerful because it can check challenges quickly, provide 
hints, tally scores, and set up timing devices. 
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Тһе $1.00 Word Challenge 


Неге is the challenge in Marlyn Burns’ own words: 


“Excellent” is a $1.00 word. Mathematically speaking, that is. So are 
“friendlier” and “grumpy” and "elephants" And so is “discipline,” which 
is what it takes to find more of these $1.00 wonders. To find out how 
much a word is worth, you give each letter a cent value: a=$.01, 
b=$.02, c=$.03, and so on up to z=$.26. Then you add the value of each 
letter in a word. 

Check for yourself to make sure the words given above really 
are worth exactly $1.00. Then уочте on your own. How about starting 
with your first name? Is it worth $1.00? What about your friends’ 
names? Or the town or city you live in? 

The $1.00 word fever has been spreading throughout the United 
States. To date over 500 $1.00 words have been found by addition- 
loving kids across the country. Some have been writing $1.00 
sentences—sentences in which every word is worth $1.00. Some 
examples: “Prevent inflation.” “Whenever Henrietta whistled, thirty 
trembling costumed elephants merrily performed." 

Of course, dedicated $1.00 word zealots have brought their 
computers into the search, programming them to calculate the value 
of whatever word they input. Try it. It takes all the drudge out of the 
search. 

Some hints may be useful for getting you started. There is one 
Halloween word that is worth $1.00 (It’s not Halloween; that's only 
worth 9.95.) There's one Thanksgiving $1.00 word, as well as опе 
astrological sign, and one United States coin. There are at least two 
United States cities—one of them in Wisconsin, and the other in both 
Oregon and Maine. To date, one five-letter $1.00 word has been found. 
No one, however, has submitted a word with four letters. (Is it possi- 
ble to have a four-letter word worth $1.00? 

There's a beverage that is illegal for minors to drink that's worth 
$1.00, though it sometimes costs more than that to buy in restaurants 
and bars. There are several zoo animals that are $1.00 words, and at 
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least one underwater creature. Something that rarely strikes twice in 
the same place, so they say, is also a $1.00 word. And there is a 
number that is less than 100 that is worth $1.00 when written as a 
word. 


This program will check to see if your words are $1.00 words. If 
your word doesn't quite make a dollar, the program will also tell you 
how much it is worth using the coding system where A is a penny, B 
two cents, etc. 


10 REM «жж ONE-DOLLAR WORDS KK 

100 PRINTCHR$€ (147) 

110 PRINTTAB(7)5 "THE ONE-DOLLAR WORD MAC 

HINE" 

120 PRINT:PRINT:INPUT"PLEASE ENTER YOUR 

WORD"; A$: ІҒАФ-""ТНЕМ120 

130 V=0:FORT=1TOLEN (A$) : IFMID$ (AS, T,1)<" 

A" ORMIDS (AS, T, 1) >"2"ТНЕМ120 

140 V=V+ASC (MIDS (AS, T, 1) )-64: NEXT 

150 IFV=100THENPRINTAS;" IS A ONE-DOLLAR 
WORD'":GOTO120 

160 PRINTA$;" IS WORTH"; V; "CENTS. 80701 

20 


If you want to make a $2.00 word machine or a half-dollar word 
machine, all you have to do is change the IF-THEN and PRINT com- 
mands on line 150. Thus, the following changes in line 150 will give a 
Fifty Cents Word Machine: 


150 IF V=50 THEN PRINT А6; "IS А FIFTY CENT 


WORD!":GOTO 120 


Division Homeworker 


Did you ever get frustrated when you were asked to "show the work" 
when you were doing math homework? After all, a calculator or com- 


20 


DDRIII DD I БАРАР ааа 


ссссессссссссссссссссссссссссссссссссссс 


puter could do the work. Why bother with the tediousness of long 
division anymore? There is even a rumor that long division is a device 
created by teachers to torture their students with boredom. We've 
come up with a solution to the long division nightmare. Here is a 
program that not merely gives you the answer to a long division 
problem, remainder and all, but also “shows the work." We hope it will 
save you hours of boredom that could be used in more productive and 
pleasurable activity. 

The program has another value. It will take you step by step 
through long division problems and can be a useful way to learn the 
process. 


DIVIDEND: 223456 
DIUISOR: 234 


1 REM +++ DIVISION HOMEWORKER & * 


100 СК=49152: CY=CR+10: СХ=СҮ+1 : 60548600: X 
=24:Ү=4 
110 POKES3280, 9: POKES3281, O: PRINTCHRS (14 
7) 3 CHRS (5) : POKECX, 2: POKECY, 18 

120 РКІМТ" DIVISION": PRINT" HOMEWORKE 
R":SYSCR: INPUT "DIVIDEND"; МФ 

130 N=VAL (N$) : IFN=OORN>999999THENRUN 

140 PRINT: INPUT" DIVISOR" 5; 0%: D=VAL (D$) 
s IFDZOORD^NTHENRUN 

150 POKECX, Х:РОКЕСҮ, Y: SYSCR: PRINTCHRS (98 
) $ СНА$ (157) s CHRS (145) 5 CHRS (176); 

160 FORT=1TOLEN (МФ) :PRINTCHR$ (99) 5 : NEXT: 
РОКЕСХ, X-LEN (DS) : SYSCR: PRINTDS 

170 РОКЕСХ, X*1: SYSCR: PRINTN$: 60548400: NS 
=1:ОР=О:ВР=О:РЕ=О: AS=LEF TS (NS, 1) 

180 NT=VAL (LEFTS (МФ, NS) ) : IFNT=>DTHENZ20 
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190 ОР=0Р+1: IFFF=1 THENPOKECX, Х+0Р: РОКЕСУ 
‚ У-2: SYSCR: PRINT"O" : 60818400 

200 NS=NS+1: IFNS>LEN (N$) ТНЕМА=МТ : GOTOSOO 
210 AS=LEFTS (N$, NS) : РОКЕСХ, 2+X+QP-LEN (AS 
) :РОКЕСУ , Y+BP: SYSCR: PRINTA$: 5070180 

220 FF=1:QT=INT (МТ/О) : RENT-D«GQT: GP-GP- 1: 
РОКЕСХ, xv: POKECY, Ү-2: SYSCR 

230 PRINTRIGHTS (STR$ (QT) , 1) : 60508400 

240 T=1+X+OQP-LEN (STRG (D#QT) ) :POKECX, T: PO 
KECY , Y+BP+1:SYSCR: PRINTGT«D: 60818400 

250 РОКЕСҮ,Ү+ВР+2: SYSCR: PRINT" ";:РОВТ=1 
TOLEN(STR$ (OT«D) ) C1: PRINTCHR$ (99) š š NEXT 

260 РОКЕСХ, 1+X+0P-LEN (STR$ (В) ) : РОКЕСҮ, Y+ 
BP+3: SYSCR: PRINTR: GOSUB400 

270 IFNS=LEN(N%) THENSOO 

280 T$-RIGHT$(STR$ (FO ,LEN(STR$ (R)) -12 2 T$ 
=TS+MIDS (Ns, NS+1, 1) 

290 РОКЕСХ, 2+X+QP-LEN (STR$ (К) ) :POKECY, Y+ 
BP+3:SYSCR: РКІМТТФ: АФ-Т%: GOSUB400 

300 TS=RIGHTS (STRS(R),LEN(STRS(R) )-1) : T$ 
=T$+MIDS (N$, NS 1, 6) INS=TS 

510 NS=LEN (A$) : ВР=ВР+$: 6010180 

400 ВЕТ2%: IFZ$=""THEN400 

410 RETURN 

500 POKECX, Х+0Р+2: POKECY, Ү-2: SYSCR: PRINT 
"R"; R: GOSUB400: RUN 

600 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 
XT 

610 RETURN 

630 DATAZ4, 174, 10, 192, 172, 11, 192, 76, 240, 
255 
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Kabala Name Game 


According to the Kabala, a mystical Jewish treatise about the rela- 
tionship between numbers, letters, and things spiritual, every word 
has a numerical value which determines its sacredness and quality. 
This is especially true for names. We've turned the name/number 
equivalence into a game. Each letter of the alphabet is given a value 
from 1 to 26, A being 1 and 7 26. The names displayed іп the game 
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have a total value which consists of the sum of the values of their 
letters. Thus, Abe has a value of 1+2+5=8. (Can you think of a name 
with a lower value than Abe?) 

The game works in the following way: A name is displayed on 
the top of the screen and below it four other names are displayed. You 
have to figure out which one of the four has the same value as the 
first name displayed. 

There is a strategy you might use to help you eliminate some 
names immediately. Look at the original name and see how many of 
its letters are skewed toward the front of the alphabet, how many are 
in the middle, and how many at the end. That should give you an idea 
of whether the value of the whole will be low, medium, or high. For 
example, it is clear that Abe will have a low value and Val a much 
higher one. With this first take, you can scan all the names and 
eliminate those whose values clearly don't match up. 


10 REM жн KABALA NAME GAME жеж 
100 50=54272:СК=49152: CY-CR*10: CX=CY+1:D 
IMK$ (19, 5) :GÜSUB900 

110 FORT=0TO19: FORJ=0TO3: READKS (T, J) : МЕХ 
T:NEXT 

120 POKES3280, o: POKES3281 , 0: PRINTCHRS (14 
7) ; CHR$ (5) : X210: Y=2: 60808800 

150 PRINT"THE KABALA NAME GAME": FORT=0TO 
1: FORJ=1T013: X=T#6+4: Y=5+J: GOSUBBOO 

140 PRINTCHRS (T#13+3+64) ; "="; RIGHTS (ТКФ 
(T#13+J) „LEN (STRS (T#134+J) ) -12 MXT: NEXT 

150 P (S) IN (RND (1) #20) z R12INT (ВМО (1) 4) 
: R22INT (RND (1) #4) : IFR2=R1THEN150 

160 X=25: v: GOSUBS00: РКІМТКФ (P C3) , R1) :F 
ORT=0TO2: P (Т) 2-1: NEXT: FORT=0TO2 

170 R=INT(RND(1) +20) :FORJ=OTO3: IFP (J) -RT 
HEN170 

180 МЕХТ:Р(Т)-К:МЕХТ:ҒОКТ-0Т05:М(Т)--1:М 
EXT:FORT=0TOS | 

190 R=INT(RND(1) #4) : ТЕМ (К) >-1ТНЕМ1 90 

200 M(R)-T:NEXT:FORT-OTO3: X=21:Y=10+T#2: 
80518800: РКІМТТ+1; 

210 IFM(T) -STHENPRINTK$ (P (3) , R2) :R=T: GOT 
0230 

220 РКІМТКФ ( (M(T)) , INT(RND(1) #4) ) 

230 NEXT 

240 BETA$:IFA$4"1"DRA$»"A4"THEN240 

250 A=VAL (AS) –1: Х=20: Y=10+ñ*2; BOBUBBOO: P 
RINT'"&": X224: Y=10+R#2: GÜSUBBOO 

260 PRINTCHR$ (18) ;: FORT=1 TOLEN (КФ (P (3) , R 
2)) : PRINTMIDS (КФ (Р (3) , Rz), T, 12 $ NEXT 
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270 PRINT: POKESO+1, 100: IFR-ATHENGOTO290 
280 POKESO+4, 17: FORT=100TOSOSTEP-1: POKES 
0+1, Т: NEXT: POKESO+4, О: GOTO300 

290 POKESO+4, 17: FORT=100T0150: POKESO+1, T 
: NEXT: POKESO+4, o: 5=5+1 

500 TLzTL41:X27:Y-20: GOSUBBOO: PRINT" YOU’ 
МЕ GOTTEN";S;"OUT OF";TLSCHR$(157)5"!" 
310 IFTL«10THENFORT-1TOS3OO00: NEXT: GOTO120 
520 X=8:Y=22:GOSUBS00:PRINT"PRESS «F1» T 
О PLAY AGAIN" 

330 BETAS: IFAS< >CHR$ (133) ТНЕМЗЗО 

340 RUN 

800 РОКЕСХ, X:POKECY, Y: SYSCR: RETURN 

900 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 
XT: РОКЕЗО+5, 0: POKESO+6, 240: POKESO+24, 15 
910 RETURN 

920 DATAZ4, 174, 10, 192, 172, 11,192, 76, 240, 
255 

1000 DATAEDDIE, ADELE, JAKE, DICK 

1010 DATADIANA, TED, ANN, GAIL 

1020 DATADEBRA, JANE, JOE, ALICE 

1030 DATAJIM, DAVE, NEAL, LEO 

1040 DATADIANE, SAM, MABEL, FRED 

1050 DATABILL, BETH, HEIDI, ERIC 

1060 DATAKATE, PAT, NICK, GREG 

1070 DATADAVID, JOAN, NEIL,LINDA 

1080 DATAMARIA, JANICE, TIM, ALEX 

1090 DATAANDY, RAY, HELEN, TINA 

1100 DATADANIEL, SUE, PHIL, CLARK 

1110 DATABECKY, PETE, BOBBY, KATIE 

1120 DATARON, SARAH, JOHN, DOUG 

1130 DATAIRENE, PAULA, GARY, FREDDIE 

1140 DATACATHY, GEORGE, MARY, NANCY 

1150 DATAALBERT, DANNY, PEDRO, JESSE 

1160 DATACHARLES, RUBY, MANUEL , MICKEY 

1170 DATAVICKY, HARRY, HENRY, SIMON 

1180 DATATONY, SUSAN, PENNY, JOSHUA 

1190 DATAJEREMY, THOMAS, JERRY, HERBERT 


Here are the data statements for the game. We've made lists of 
names of equivalent number value. You add or subtract names so long 
as all the names on a given line have the same value. You can also 
replace a line of your own with animal names or plant names and 
change the nature of the game that way. Just be sure to change the 
PRINT commands and check the numerical values of your words. 


1000 DATAEDDIE, ADELE, JAKE, DICK 
1010 DATADIANA, TED, ANN, GAIL 
1020 DATADEBRA, JANE, JOE, ALICE 
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1050 DATAJIM, DAVE, NEAL, LEO 

1040 DATADIANE, SAM, MABEL, FRED 

1050 DATABILL, BETH, HEIDI,ERIC 

1060 DATAKATE, PAT, NICK, GREG 

1070 DATADAVID, JOAN, NEIL,LINDA 

1080 DATAMARIA, JANICE, TIM, ALEX 

1090 DATAANDY, RAY, HELEN, TINA 

1100 DATADANIEL, SUE, PHIL, CLARK 

1110 DATABECKY, PETE, BOBBY, KATIE 
1120 DATARON, SARAH, JOHN, DOUG 

1130 DATAIRENE, PAULA, GARY, FREDDIE 
1140 DATACATHY, GEORGE, MARY, NANCY 
1150 DATAALBERT, DANNY, PEDRO, JESSE 
1160 DATACHARLES, RUBY, MANUEL, MICKEY 
1170 DATAVICKY, HARRY, HENRY, SIMON 
1180 DATATONY, SUSAN, PENNY, JOSHUA 
1190 DATAJEREMY, THOMAS, JERRY, HERBERT 
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Pitch and Toss 


This game is thoroughly determined by chance. 


Games of chance exist everywhere in the world. Often they are asso- 
ciated with predicting the future or making important decisions 
when there are no reasons to choose one way of acting over another. 
They also are good gambling games since every player is supposed to 
have an equal chance of winning. In our society, the most familiar 
chance games involve dice, playing cards, and spinners like the 
roulette wheel. In other parts of the world, different devices are used. 
For example, throughout the African continent cowrie shells, nuts, 
and elaborately carved wood tokens are commonly used in chance 
games. The characteristic of these devices is that they have two sides 
like our coins. A number of them are cast and scores are made accord- 
ing to which faces show up. 
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For example, there is a game played by the Igbo of Nigeria which 
consists of casting four cowrie shells which can fall back up or open 
side up. 


The best scores are four backs up or four backs down. 
There are 16 possibilities when tossing the four cowries: (U = 
back up, D = back down] 


UUUU UUDD DDUU 
UUUD UDUD UDDD 
UUDU UDDU DUDD 
UDUU DUUD DDUD 
DUUU DUDU DDDU 

DDDD 


Since the cowries can be considered to look alike, these possibil- 
ities can be simplified in the following way: 


4 up 0 down — 1 way 
3 up 1 down — 4 ways 
2 up 2 down — 6 ways 
] up 3 down — 4 ways 
0 up 4 down — 1 way 


Because of this, the following scoring system could be used for 
the game, giving fewer points to the arrangement most likely to 
happen, and more points to the rarer combinations. 


4 up or 4 down 4 points 

] up 3 down 2 points 

3 up 1 down 2 points 

2 up 2 down 1 point 
26 
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Try the game with cowries, walnuts, or pennies. It is as interesting аз 
playing dice and provides more awareness of arrays of figures and 
scoring combinations. 


This game is a computer version of the cowrie game. The com- 
puter will throw five cowries onto the playing board. One side of the 
cowrie will be represented by X and the other side as O. You have to 
guess how many X's will come up on your toss. The game is for two 
people and both players guess on each throw. The scoring is as fol- 
lows: If you guess correctly you get points equal to the number of X's 
that you predicted would come up. If your partner guesses correctly, 
you lose points equal to the number of your guess. If neither of you 
guess correctly there is no score and you go on to the next round. 
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Player 2nd Player Ls 
LOST 4 HON = 


Player... How many H's 8-52 4 


Player... How many K's СӨ—52 = 


10 КЕМ Kn PITCH AND TOSS RN * 

100 CR=49152: CY=CR+10: CX=CY+1: 60548900 
110 POKE53280, O: POKES3281, O: PRINTCHRS (14 
7) 3 CHR$ (5) :5% (O) = "Q":8$(1)2"X" 

115 PRINTCHR$ (153);:51=10:52=10 


120 PRINT" OXOXOXOXOXOXOXOXOXOX " 
129 PRINT " X “sCHRS(156)5"PITC 
Н AND TOSS";CHR$(153);" X" 

130 PRINT" OXOXOXOXOXOXOXOXOXOX" 


: PRINTCHR$ (5) : GOSUB600: GOSUB700 

200 Xz2:Y220:808UB800:PRINT"18T PLAYER.. 
„НОМ MANY X'S (0-5) ";: 60548400 

210 РАТМТК: 61=К: X22: Y222: GOSUBBOO: PRINT" 
2ND PLAYER...HOW MANY X'S (0-5) "5: 

220 GOSUB400: IFK=G1 THEN220 

230 PRINTK: G2=K 

240 C=0:FORT=0TO4: X=INT (ВМО C1) #5) : PRINT ( 
RND (1) #2) : Х=17+Х: Y=11+T: GOSUBBOO 

250 PRINTS$ (P): IFP=1THENC=C+1 

260 NEXT: IFC=G1 THENS1=S1+61 : S2=S2-G2: GOS 
UB300 

270 IFC=G2THENS1=S1—-G1: S2=S2+G2: GOSUBSSO 
280 GOSUB600: 1Е51< 10RS2< 1 THENX=S: Ү=15: GO 
518800: GOTO6SO 

290 60Т0810 

300 X=6: Y=7: GOSUBSOO: PRINT"WON" G1: X226: 
GOSUBSOO0: PRINT "LOST"; G2: RETURN 

350 X=: Y=7: GOSUBS00: РАТМТ"ЬОЗТ"; 61: Х=26 
: GOSUBS00: PRINT "WON" ; 62: RETURN 

400 GETKS: IFK$=""THEN400 

410 K=ASC (K$) —48: IFK<OORK>STHEN400 


420 RETURN 
600 X=2: Ү=5: BOSUB800: PRINTCHRS (159) 5 “1ST 
PLAYER "3S1;CHRS(157)3" ":X=22 
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610 GO0SUBS800:PRINT"2ND PLAYER ; 52; СНК ( 
157)5"  "iPRINTCHR$ (5) š RETURN 

650 PRINTCHRS (158); "GAME ОМЕН":Х-25:Ү-13 
: 60518800: PRINTCHR$ (158); "GAME OVER" 

660 GOTOS20 

700 X=15: Ү=9: ВОЅОВВОО: PRINTCHR$ (31); "HHH 
1HHHHHE" 2 Y210: 60518800 


705 PRINT"## #8": FORT=1TOS: Y=10+T:GO 
SUBBOO 

710 PRINT"# NR МЕХТ: Y=16: GOSUBSOO: 
PRINT" ## gu 


720 Y217:808UB800:PRINT " 4HHHHHHHHE" PRINT 

CHR$ (5) : RETURN 

800 РОКЕСХ, x: POKECY, Y: SYSCR: NE Tf 

810 Х=15:ү=18: GOSUBS00:PRINT"PRESS KEY" 

820 БЕТК$: IFK$=""THENS20 

830 X=15: Y=18: GOSUB800: PRINT" " 

: X26: Y27: 60318800: PRINT" ":Х=26 

840 80818800: PRINT" " 

850 FORT=20T023: X=2: Y=T: GOSUB800: PRINT" 
9 

860 NEXT:GOSUB700: IFS1< 10RS2< 1 THENRUN 

870 GOTO200 

900 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 

XT: RETURN 

910 DATA24, 174, 10, 192, 172, 11, 192, 76, 240, 

255 
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Date to Weekday 


This is a conversion program. You can enter any date—past, present, 
or future—and this program will tell you which day of the week it 
happened to be. Leap years are also indicated. Using this program, you 
can find out the day you and your friends and family were born. You 
can find out the days Napoleon, Emma Goldman, and Julius Caesar 
were born. You can find out what day Christmas will fall on in 2100 
or what day it fell on in 1166. 
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10 КЕМ A DATE TO WEEKDAY A 
100 СК=49152: СҮ=СК+10:СХ=СҮ+1: GOSUB900: P 
RINTCHR$ (5) ; CHR$ (147) :РОКЕ53281,0 

110 POKES3280, o: Х=9: Y=3: 60508800: PRINT"D 
ATE TO DAY CONVERSION": Х=2: У=6: BOSUBBOO 
120 DIN (27), vi (120, us (6) , Y2$ (12) : РОАТ=О 
Т027: READM (T) : NEXT: FORT=1T012: READY1 (T) 
130 NEXT: FORT=0TO6: READ (T) : NEXT: РОКТ=1 
TO12: READY2$(T) : NEXT 

140 INPUT"MONTH (1—12)"; : PRINT: PRINT: IN 
PUT" DAY (1-31)"3D:PRINT:PRINT 

150 INPUT" YEAR (o- )"3Y:PRINT:PRINT 
160 ҮН=ІМТ (Ү/28) : ҮК=М (Y- YHX28) : IFINT (V/A 
)=Y/4THENLP=1 

170 FORT=OTOM-1:N=N+Y1 (T): NEXT: NEN-D-1-4Y 
К: IFM>2THENN=N+LP 

180 N=N-7#INT(N/7) : DS=WS (№) : M$=Y2$ (М) 
190 PRINTM$;D; СНЕФ (157) 5", "3 Y; "WAS A "D 
$; . ts 

200 IFLP=1THENPRINT:PRINTY3 "WAS А LEAP Y 
EAR" 

210 Х=15: Y=20:GOSUBS00:PRINT"PRESS <F1i>" 
220 GETAS: IFAS< >CHRS (133) THEN220 

230 RUN 

ВОО РОКЕСХ, X:POKECY, Y: SYSCR: RETURN 

900 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 
ХТ: POKESO+5, 0: POKESO+6, 240: RETURN 

910 DATAZ4, 174, 10, 192, 172, 11, 192, 76,240, 
255 

920 БАТА4,0,0,1,2,4,5,6,0,2,3,4,5,0,1,2, 
5, 5, 6, 0, 1, 3, 4, 8, E, 12, 

950 DATAS1, 28, 31, 30, 31, 50, 51, 31, 30, 81, 30 
‚51 

940 DATAMONDAY, TUESDAY, WEDNESDAY, THURSDA 
Y, FRIDAY, SATURDAY, SUNDAY 

950 DATAJANUARY , FEBRUARY , MARCH, APRIL, МАУ 
‚ JUNE, JULY, AUGUST, SEPTEMBER, OCTOBER 

960 DATANOVEMBER, DECEMBER 
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President Precedence 


For multiple choice fans, here's a challenge to test your knowledge of 
the Presidential terms of office. A date appears at the top of the 
screen. The names of three Presidents appear by the numbers one, 
two, and three. Press a number on the keyboard to match the correct 
President with his term. 


10 REM *** PRESIDENT PRECEDENCE жж 

100 СК=49152: СҮ=СК+10: CX=CY+1! GOSUBBOO: P 

RINTCHR$ (5) š CHR$ (147) :POKES3280, O 

110 РОКЕБЗ281, o: DIMAS (39, 1) !FORT=OTO39:R 

EADAS (T, 0) : READAS (T, 1) : NEXT 

120 P (O) IN (RND (1) #40) :P (1) SINT (RND (1) * 

40) :P (2) SINT (NN (1) #40) 

130 ІҒР(1) =P (2) ОАР (2) =P CO) ORP (CO) SP C1) THE 

N120 | 

140 PRINTCHR$ (147) : PRINT: PRINTTAB (10) "PR 

ESIDENT PRECEDENCE": X=15: У=6: GOSUB700 
150 PRINTAS(P (0), 1) :FORT=OTO2: М (Т) -I: МЕ 

ХТ: Yz10: X20: 60608700: FORT=0TO2 

160 К=ІМТ (ВМО (1) #3) : ТЕМ (К) >-1ТНЕМ1 60 

170 M(R)ST:NEXT:FORT-OTO2: РАТМТТ+1; АФ (P ( 

M(T)),0) zNEXT 

180 GETAS: IFAS<"1"ORAS>"3"THEN180 

190 A=VAL (АФ) —1: ІЕМ (А) < >ОТНЕМ! 8O 

200 Х=16: Ү=18: GOSUB700: PRINT" CORRECT": FO 

RT=1T01000: NEXT: 6070120 

700 POKECX, X: POKECY, Y: SYSCR: RETURN 

ВОО FORBYTE=CRTOCR+9: READA: РОКЕВУТЕ , А: NE 
XT: РОКЕЗО+5, 0: POE SO, 240: RETURN 

810 DATAZ4, 174, 10, 192, 172, 11, 12, 76, 240, 
255 

850 DATAGEORGE WASHINGTON, 1789-1797, JOHN 
ADAMS, 1797-1801 

855 DATATHOMAS JEFFERSON, 1801-1809, JAMES 
MADISON, 1809-1817 

860 DATAJAMES MONROE, 1817-1825, JOHN QUIN 
CY ADAMS, 1825-1829 

865 DATAANDREW JACKSON, 1829-1837, MARTIN 
VAN BUREN, 1857-1841 

870 DATAWILLIAM HENRY HARRISON, 1841-1841 
,JOHN TYLER, 1841-1845 


31 


875 DATAJAMES К. POLK, 1845-1849, ZACHARY 
TAYLOR, 1849-1850 

880 DATAMILLARD FILLMORE, 1850-1853, FRANK 
LIN PIERCE, 1853-1857 

885 DATAJAMES BUCHANAN, 1857-1861, ABRAHAM 
LINCOLN, 1861-1865 

890 DATAANDREW JOHNSON, 1865-1869, ULYSSES 
S. GRANT, 1869-1877 

895 DATARUTHERFORD B. HAYES, 1877-1881,JA 

MES A. GARFIELD, 1881-1881 

900 DATACHESTER A. ARTHUR, 1881-1885, GROV 

ER CLEVELAND (1), 1885-1889 

905 DATABENJAMIN HARRISON, 1889-1893, GROV 

ER CLEVELAND (2), 1893-1897 

910 DATAWILLIAM MCKINLEY, 1897-1901, THEOD 

ORE ROOSEVELT, 1901-1909 

915 DATAWILLIAM H. TAFT, 1909-1913, WOODRO 

W WILSON, 1913-1921 

920 DATAWARREN G. HARDING, 1921-1923, Cal. V 
IN COOLIDGE, 1923-1929 | 

925 DATAHERBERT C. HOOVER, 1929-1935, FRAN 

KLIN D. ROOSEVELT, 1933-1945 

930 DATAHARRY S. TRUMAN, 1945-1953, DWIGHT 
D. EISENHOWER, 1953-1961 

935 DATAJOHN F. KENNEDY, 1961-1963, LYNDON 
B. JOHNSON, 1963-1969 

940 DATARICHARD M. NIXON, 1969-1974, GERAL 
О К. FORD, 1974-1977 

945 DATAJIMMY CARTER, 1977-1981,RONALD КЕ 
AGAN, 1981-7777 


This program can be modified to match events to dates. For 
example, in the data lines from 850 to 945 you can put the name of a 
battle with its dates or the name of a great invention with the date it 
was invented. As long as you do not change the structure of the data 
and keep to associating a name with a number you will be able to 
modify this program and make up your own multiple choice quizzes. 
There is one thing to be careful about, however. On line 110, the 
program is set up to deal with 40 data inputs (FOR T=0 to 39) and on 
line 120 to deal with the length of your DATA statement. If you keep 
to the same number of items and same length of items in the program 
youll have no trouble. If not, you should change the parameters on 
lines 110 and 120. 
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| Quotient (IQ) implies that there is some objective 
measure of how smart people are. An IQ of 100 is supposed to be 
normal, 140 brilliant, and 75 slow. However, no one knows how accu- 
rate even the most sophisticated tests are. Your IQ has to do with how 
you perform on the tests you take and not with how intelligently you 
function with others and at your work. 

Since the measure of IQ is so test-bound, your score can be 
changed if you practice the skills that the test designers have chosen 
as epitomizing the essence of “intelligence.” Usually, these skills have 
to do with memorizing lists, figuring out sequences, estimating 
answers quickly, and knowing how to manipulate strings of symbols. 
This Part provides a number of games and exercises that hone these 
skills. Of course, there is no guarantee that your IQ will be raised by 
playing them but there is a chance that, if you master these modes of 
thinking, you will find it easier to deal with the challenges of IQ tests. 
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Gestalt 


The word Gestalt refers to a perceptual whole. When we look at a 
chair or table we do not see its individual parts and then conclude 
that they go together to make a chair or table. We see the chair or 
table as an integrated whole or Gestalt. A Gestalt problem that 
English philosophers debated about 30 years ago led to this computer 
program. The problem was usually phrased this way: 


You are looking at a field of sheep. Exactly how many sheep do you 
see? If a sheep were added or subtracted would you see any more or 
fewer sheep? 


If you do not stop to count the sheep, it would be accurate to say that 
you saw a whole bunch of sheep, not a particular number of sheep. 
You could, however, estimate the number of sheep and, if you had a 
great deal of experience with sheep, could get more and more accu- 
rate. Estimation even within the context of an initially disordered 
Gestalt can be refined and improved. This program gives you an 
opportunity to guess at the number of dots on your computer screen 
without counting them. The computer will tell you how close your 
guess is and then give you another series of dots to guess about. This 
kind of estimation is related to IQ tests in that the ability to estimate 
the probability of an answer makes it possible to eliminate the least 
likely choices of a multiple choice question and, therefore, gives you 
more time to work on problems. 

The program also helps you concentrate on responding to your 
perceptions and refining them. It is practice in looking at and inter- 
preting what you see. 


10 REM +++ GESTALT *** 

100 СК=49152: CY=CR+10: CX=CY+1 : GOSUB900 
110 РОКЕ55280, O: POKES3281 , O: PRINTCHRS (14 
7) s CHR$ (5) 

120 PRINT: PRINT“ THIS IS AN ESTIMATION GA 
ME." PRINT: PRINT“ VOU WILL SEE DOTS ON ТН 
E SCREEN." 
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This program may put too many dots оп the screen at the 
or run too quickly for you. If you want fewer dots on the screen to 


begin with, you can change the value of Q on line 170: 


130 PRINT:PRINT"DO NOT TRY TO COUNT THE 
DOTS.":PRINT:PRINT"JUST ESTIMATE HOW MAN 
Y. "PRINT 

140 PRINT"AFTER A WHILE YOU SHOULD GET B 
ETTER" 

150 PRINT:PRINT:PRINT"PRESS А KEY TO BEG 
IN" 

160 GETK$: IFK$=""THEN160 

170 PRINTCHR$ (147) ; : G-INT (RND (1) #20) +5 
180 FORZ=1TOQ: Х=ІМТ (RND (1) #39) : Yz INT (RND 
(1) #21) :GOSUBBOO: PRINTCHR$ (119) : NEXT 

190 X-22:Y-21:808UB800: INPUT"YOUR ESTIMAT 
Е "5 

200 IFS=QTHENPRINT" YOU GOT IT!!":GOTO 
220 

210 PRINT" YOU ARE"3ABS(S-@) 3 "OFF" 

220 FORT=1T01500: NEXTT: RUN 

800 РОКЕСХ, X: POKECY, Y: SYSCR: RETURN 

900 FORBYTE=CRTOCR+9: READA: POKEBYTE, A: NE 
XT: RETURN 

910 ПАТА24, 174, 10, 192, 172, 11, 192, 76, 240, 
255 


Q=INT(RND(1)*20)+5 
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For example, if you change the 5 at the end of the line to 0, you'll get а 
maximum of 20 dots and if you change it to 5 you'll get a maximum of 
10. 

If you want to slow the program down, you can put a pause loop 
such as 


FOR X=1 TO 500:NEXT X 


into the program after you plot the points (line 220). 
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Hash Line 


Flash Line is a length estimating program. It flashes two lines on the 
screen and asks you which one is longer. If you get the correct answer, 
it gives you another set of lines. If you get it wrong, it gives you 
another chance. Most of the challenges of this program are easy to 
answer once you get the rhythm of looking and inputting your 
answer. However, the game can be speeded up by changing the pause 
loops at lines 170 and 230. You can also change the length of the lines 
by reducing the random value in line 120. When you reduce the size 
of the line the game gets more complex because the sizes of the lines 
don't vary as much. 
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Notice that there is a machine language routine at lines 900 and 
910 that you will find in many of the programs in this book. This 
routine is in effect a positioning statement that sets up the screen 
placement of the game or utility. 


10 REM +++ FLASHLINE x 
100 CR=49152: CY=CR+10: СХ=СҮ+1 : GOSUB900 
110 POKES3280, O: POKE53281, О: PRINTCHRS (14 
7) š CHR$ (5) 
120 X(1)=INT(RND (1) #15) +10: K (2) =INT (RND( 
1)%15) +10: IFX (1) =X (2) THEN120 
130 PRINTCHR$(147):PRINT:PRINT" WHICH ON 
Е IS LONGER, THE 1ST OR 2ND?" 
140 РОАТ=1ТО2: x1: Y=10: 60518800 
150 PRINT" 

" : GOSUBBOO 
160 FORJ=1TOX (Т) : PRINTCHR$ (18) f CHR$ (28); 
"и; : NEN TA: PRINTCHRS (146) ; CHR$ (5) 
170 FORJ=1T0400: NEXTJ:NEXTT. 
180 Xz1:Y-19:GO0SUB800:PRINT"TYPE 1 OR 2" 
190 GETAS: IFAS< >" 1 "ANDAS< >" 2" THEN190 
200 A=VAL (As): В=2: IFX (1) >X (2) THENB=1 
210 IFA=BTHENPRINT!:PRINT"RIGHT. HERE'S А 
NOTHER ONE. ":C=1 
220 IFAC >BTHENPRINT:PRINT"WRONG. TAKE АМ 
OTHER LOOK. ":С=2 
230 FORT=1T01000: NEXT: ONCGOTO1 20, 130 
799 STOP 
800 РОКЕСХ, X: POKECY , Y: SYSCR: RETURN 
900 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 
XT: RETURN 
910 DATA24, 174, 10, 192, 172, 11,192, 76, 240, 
255 
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Did You See It? 


Here is a third estimating game. This program moves circles around 
the screen randomly. A challenging perceptual experiment would be 
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to see whether substituting other symbols changes the difficulty of 
the task. For example, you could substitute symbols such as “? or "m" 
or “#” and see whether some symbols are easier to decode than others 
in a game such as this. 

The substitution should be made at line 160 for CHR$(119). If 
you look at the back of your Commodore Reference Manual you will 
see a list of CHR$ and ASCII code numbers. ASCII codes give 
numbers to each symbol you can use on your Commodore 64. The 
CHR$ function allows you to print out or use a character. For exam- 
ple, the ASCII code for @ is 64. If you typed PRINT СНК$(64) you 
would get G. If, on the other hand, you typed ASCII G you would get 
the number 64. 

Here is a simple program that will print out ASCII code numbers 
and their character equivalents: 


10 FOR Х=32 TO 191 
20 PRINT “ASCII= „X.“ ";"CHR$= ";CHR$(X) 
30 NEXT 


10 REM жиы DO YOU SEE IT *** 

100 СК-49152: CY=CR+10: CX=CY+1 : GOSUB900 
110 РОКЕ55280, O: РОКЕ55281, O: PRINTCHR$ (14 
7) s CHR$ (5) 

120 X=2: Y=20: ВОЭМВВОО:РКІМТ"------------ 
———————————————————————— we X=5: Y=22 

130 GOSUBS8OO:PRINT"HOW MANY DO YOU SEE?" 
: S INT (КМО (1) #10) +5 

140 FORM=1TOS00: NEXTM 

150 FORWZ1TOS 

160 X=INT(RND(1)*40) : Ү= ІМТ (RND (1) #20) : GO 
SUB8OO: PRINTCHRS (119) 

170 FORR=1 T0275: NEX TR: GOSUB800: PRINT" "; 


NEXTW 

180 X25:Y-23: 60818800: INPUTG 

190 IFG=STHENPRINT" YOU GOT IT 
pus 

200 IFG<>STHENPRINT" TRY AGAIN 


"s : РОРТ=1Т0500: МЕХТТ: 8070150 

210 FORT=1TOS00: NEXT: RUN 

800 РОКЕСХ, X: POKECY, Y: SYSCR: RETURN 

900 FORBYTE=CRTOCR+9: READA: POKEBYTE , А: NE 
XT: RETURN 

910 DATA24, 174, 10, 192, 172, 11,192, 76, 240, 
255 
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Memory Muscle Builder 


This challenge begins by showing you two digits to memorize. If you 
can type them in correctly you will then be shown three digits and so 
on until your mind is overcome with numbers. When you finally 
miss you will be assigned one of the 15 ranks of memory power we 
have built into the program. Repeating number sequences occur on a 
number of individually administered IQ tests and, with some training, 
you can become a memory master. The memorization of sequences is 
also a good exercise in the development of concentration. 


10 REM «жи MEMORY MUSCLE BUILDER *** 

100 CR=49152: CY=CR+10: CX=CY+1: GOSUB900 
110 POKES3280, O: POKES3281 , О: PRINTCHR$ (14 
7) 5 CHR$ (8) :рІМ А(15),М№$ (14) : №1 

115 FORT=0T014: READNS (T) š NEXT 

120 PRINTCHR$ (147) : X27: Ү=2: BOSUBBOO0: PRIN 
T"* MEMORY MUSCLE BUILDER ж” 

130 X=2: Y=6: GOSUBSOO: PRINT “WATCH CAREFUL 
LY..."sFORT=1T0150: NEXT 

140 X=1: Y=8: GOSUBS00: FORTZOTON: A(T) INT. 
RND (1) #10) = РКІМТА (Т) $ SNEXT 

150 FORT=1TO200+N#400: NEXT: X21: Y=8: GOSUB 
ВОО: FORT=OTON: PRINT" ? “3 MXT 

160 X=2: Y=10: GOSUBS00: РКІМТ "МОИ, ENTER Т 
HE NUMBERS YOU SAW": X=2: Y=12: G0SUBBOO 
170 POKE198, O: FORT=OTON 

180 GETKS: ІҒКФ-""ТНЕМ180 

190 K=ASC (K$) -48: IFK<OORK>9THEN180 

200 PRINTK; : IFK< >A(T) ТНЕМ$ ОО 

210 NEXT: Xz2: Yz14: GOSUBBOO: PRINT"WOW, WH 
АТ A MEMORY! ":N-N-*1:IFNZ16THENA4OO 

220 FORT=1T0750: NEXT: GOTO120 

500 Xa2:Yz14:GO0S8UB800:PRINT"OOPS! THE NU 
MBERS WERE..." 

510 Y=16: GOSUBS00: FORT=OTON: PRINTA CT) $ : N 
EXT 

320 Yz18:G08UB800:PRINT"YOUR RANK: Ns 
(N) 

330 FORT=1T02000: NEXT: RUN 

800 POKECX, X: POKECY , V: SYSCR: RETURN 
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900 FORBYTE=CRTOCR+9: РЕАЛА: РОКЕВҮТЕ, А: NE 
XT: RETURN 

910 DATAZ4, 174, 10, 192, 172, 11, 192, 76, 240, 
255 

920 DATA NOVICE CLASS 2,NOVICE CLASS 1,1 
NITIATE CLASS 2, INITIATE CLASS 1 

930 DATA AVERAGE CLASS 2,AVERAGE CLASS 1 
,MEMORY WHIZ CLASS 2 

940 DATA MEMORY WHIZ CLASS 1,MASTER CLAS 
S 2,MASTER CLASS 1 

950 DATA MEMORY MASTER CLASS 2,MEMORY MA 
STER CLASS 1,GRANDMASTER 

960 DATA PRODIGY, GENIUS 


If you look carefully at this program you will see that the varia- 
ble N indicates how many numbers you guessed correctly and, at line 
320, is used to assign you a rank. The assignment of ranks depends 
upon а READ..DATA.. command in which each rank becomes a 
single data statement as listed below: 


920 DATA NOVICE CLASS 2,NOVICE CLASS 1,1 
NITIATE CLASS 2, INITIATE CLASS 1 

950 DATA AVERAGE CLASS 2, AVERAGE CLASS 1 
sMEMORY WHIZ CLASS 2 

940 DATA MEMORY WHIZ CLASS 1,MASTER CLAS 
$ 2,MASTER CLASS 1 

950 DATA MEMORY MASTER CLASS 2,MEMORY MA 
STER CLASS 1,GRANDMASTER 

960 DATA PRODIGY, GENIUS 


If you want to create your own ranks, all you have to do is list the 
program and change the data lines to any titles you choose. If you 
want to create a subroutine in another program that uses a ranking 
system, all you have to do is adapt lines 320 and 920 to 960 for your 
Own purposes. 
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Mug Shot 


Mug Shot is a different kind of memory game. Mug shots are face 
photos that victims of crime are given in order to identify criminals. 
In this program, the computer creates a face for you to look at for a 
while and then clears the screen and challenges you to recreate the 
face from a choice of eyes, noses, and mouths. After you think you 
have successfully reconstructed the face, the computer shows you the 
original face next to your reconstruction. This program provides a 
deceptively complex challenge and gives a sense of how hard it is to 
reconstruct a face from memory. You can study this program and add 
a number of other features to the face. For example, you can put on 
eyebrows or hair, or even make a whole series of different shaped 
faces (oval, round, squarish, etc.). 
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MUGSHOT MEMORY TEST 


MUG SHOT MEMORY TEST 
DO YOU RECOGNIZE THE HOSE? 


REMEMBER THIS MAN'S FACE.... 
SORRY, 


OKAY, 
li. 
2. 
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10 REM ##* MUGSHOT MEMORY TEST ### 

100 CR249152:CYsCR*10: CX=CY+1: 60SUB800 

110 D$(O)-"EYES":0$(1)-"NOSE":0$ (2) ="МОЦ 

TH" 

120 POKES3280, o: POKES3281 , o: PRINTCHR$ (14 

7) š СНА$ (5) 

130 FORT-OTU2: FORU=0TO2: FÜRV-OTOS: READA: 

Fs (r, UD =F% (T, U) +CHRS (А) : NEXT: NEXT: NEXT 

140 PRINTTAB(11)"MUBSHOT MEMORY TEST": 80 

518600: 60508610: FORT-OTO2 

150 АСТ) SINT (ВМО (1) #3) : NEXT: 60808550: X=6 

: Y-16: 60518700 

160 PRINT"REMEMBER THIS MAN'S FACE....": 

FORT=1T01500: NEXT: 60548610: 60508500 

170 FORT=0TO2: X=2: Y=16: GOSUB700: PRINT"OK 

АҮ, DO YOU RECOGNIZE THE "sO8(M(T))5"? " 

180 FORJ-OTO2: Y=18+J#2: GOSUB700: PRINTJ+1 

j" "SFS(M(T),d) :МЕХТ 

190 GE Ts: IFA$-""THEN190 

200 IFVAL (АФ) X10RVAL (АФ) »STHEN190 

210 В(М(Т)) =VAL (A$) -1: X29: Y=B+2*M (T) 2608 

UB700: PRINTF$ (M (T) , BUM CT) )) : NEXT 

220 X=2: Y=16: GOSUB700: FORT=1T07: PRINT" 
": NEXT 

230 GOSUBSSO:FÜRTzOTO2: IFA (Т) =В (Т) THENNE 

ХТ: 8010250 

240 X=7:Y=16:GOSUB700:PRINT"SORRY, THAT’ 

S NOT THE МАМ. “:GOTO260 

250 X=13:Y=16:GOSUB700:PRINT"THAT’S THE 

MAN! " 

260 BETA$:IFA$-""THEN260 

270 RUN 

499 END 

500 РОАТ=ОТО2:М(Т) =-1:МЕХТ: FORT=OTO2 

510 ReINT (RND (1) #3) : ТЕМ (В) >-1ТНЕМ510 

520 M(R)=T:NEXTs RETURN 

550 FORT=0T02: X225: Y=8+2#T : GOSUB700: PRIN 

TFS (T, ACT) ) :МЕХТ: RETURN 

600 Х=7: GOSUB6S0: RETURN 

610 X=23: 80518650: RETURN 

650 \=6: 60818700: PRINTCHRS (117) f: РОВТ=1Т 

ОВ: PRINTCHR$ (99) $ : NEXT: PRINTCHR$ (105) 

550 FORT=1T07: Y-Y*1: 60808700: PRINTCHRS (1 

25)5" "j CHRS (125) : NEXT: Y=14 

570 BOSUB700:PRINTCHR$ (106) § : FORT=1TO8: P 

RINTCHR$ (99) ; : NEXT: PRINTCHR$ (107) : RETURN 

700 POKECX, X: POKECY, Y: SYSCR: RETURN 

800 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 

XT: RETURN 

810 DATA24, 174, 10, 192, 172, 11, 192, 76, 240, 

255 
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900 DATA40, 119, 41, 40, 11, 41, 32, 113, 32, 32 
„113, 32, 117, 105, 32, 32,117,105 

910 DATA32, 32, 109, 110, 32, 32, 32, 32, 106, 10 
7, 32, 32, 32, 32, 172, 187, 32, 32, 32,99, 99,99 
920 DATA99, 32, 32, 32,99, 99, 32, 32, 106, 99,9 
9,99, 99,107 


This program uses SHIFT and COMMODORE KEY graphics 
characters. Your Commodore 64 actually has four keyboards. Capitals 
and lower case letters make up one. The other two use the graphics 
symbols printed on your keyboard. You get the symbols on the left by 
pressing the (4 key and those оп the right by pressing the SHIFT 
key. Thus, S gives you a right angle shape and SHIFT S gives 
you a small heart. 

In Mugshot we have used the ASCII numbers to tell the compu- 
ter what characters to print. There is an explanation of the use of 
ASCII and CHR$ in Project 15, "Did You See It?" 
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Numbers Runner 


In this game you are presented with a grid consisting of 20 stars as 
well as 20 blanks at the bottom of the screen. The numbers from 1 to 
20 have been hidden under the stars randomly. The game is played 
with a joystick in port 1. Using the joystick, you can move around the 
grid. When you press the button on the joystick a number will appear 
under the star you are currently on. You goal is to place the numbers 
on the blank spaces at the bottom of the screen in order from 1 to 20. 
When you find 1, press the button and a 1 will appear in the first 
blank on the upper left. When you find 2 press the button and a 2 will 
appear in the blank to the right of 1. You have to remember what is 
under the stars that you have tested out in order to get all 20 numbers 
before your time runs out. There is a timer built into this program as 
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NUMBER RUNNER | 


»* 3€ 33 3€ 


еее 0000060000000000060000060060 
0000000000000 009 000000006500 06 


ШШ — 


well as a score keeper. The timer sets the length of a turn to one 
minute. The scorer will record your highest score. 

This is a memory development game one that involves the 
kinds of skills called upon when you are asked about details of stories 
you have read or pictures you have seen. It is possible, after a while, to 
register all of the numbers that you land on and solve the puzzle in 
half the time you are allowed. 

The timer in the program is controlled by line 290. The variable 
TI$ refers to a second timing clock built into the Commodore 64. Line 


290 jumps to 500 once it has counted approximately 60 seconds. 


Line 500 prints out your score. Notice that line 170 also has the 
variable TI$ and that it sets it to "000000," at the beginning of each 
game. Experiment with these lines in other programs and soon you'll 
be able to set up timing devices in your own programs. 


1 REM жен NUMBER RUNNER 393 

Z2 REM 

100 80=54272:СК=49152: СҮ=СК+10: СХ=СҮ+1: б 
08081000: рІМХ (4,3) ,Ү (4,5) ,NC4, J), MC20) 
110 POKES3280, O: POKES3281, O: PRINTCHR$ (14 
7) TAB (14) CHR$ (5) "NUMBER RUNNER" 

120 PRINTCHR$ (154) š РОКТ=1Т020: М (Т) SO: МЕХ 
Т: FORX=0T04: FORY=0TOS 

130 N=INT (MOD (1) #20) +1: ТЕМ (N) Z1THEN13O 
140 M(ND zZ1:NOX, Y) =М:Х CX, Y) =X#44125 Y OX, Y) 
=ү#4+2: GOSUB700 

150 PRINTC HRA (18) " "CHRS (146) : МЕХТ: NEXT 
160 FORY=20TO23STEPS: FORX-OTO27STEPS3: РОК 
ECX, Х+6 : РОКЕСУ ‚ Y: SYSUR 
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170 PRINTCHR$(101)CHR$(101)" ":NEXT:NEXT 
в Х=2: Yz1: RX22: RYz19: R21: TI$z"000000" 

180 IF((PEEK (56321) AND16) =0) ANDN(X, Y) >O 
THEN400 

190 T=PEEK (56321) АМ015: OX=X: OYzY 

200 ТЕТ>ВАМОТ< 12ТНЕМХ=Х-1 : IFX<OTHENX=4 
210 IFT>4ANDT<8THENX=X+15 IFX>4THENX=0 
220 IFT=100RT=140RT=4THENY=Y-1: IFY<OTHEN 


230 IFT=90RT=130RT=STHENY=Y+1: IFY>STHENY 


240 IF (OX=X) AND (OY=Y) THEN260 

250 POKESO+1, 40: POKESO+4, 33: FORT-60TOOST 
ЕР-10:РОКЕЗО+1 , 100-Т: NEXT: POKESO+4, O 
260 GOSUB700:PRINT" *: IFN(X, Y) =-OTHENGOSU 
B700: PRINTCHRS (5) "O"CHR$ (154) 

270 РОКТ=1ТО50: NEXT: IFN(X, Y) >OTHENGOSUB7 
ОО: PRINTCHR$ (18) " “CHRS (146) : GOTO290 

280 GOSUB70O:PRINT" " 

290 IFVAL (TI$) »100THENSOO 

500 GOTO180 

400 GOSUB700: PRINTCHRS (5) CHR$ (157) М(Х, Y) 
CHRS (154) : GOSUB600 

410 IF (PEEK (56521) ND 160 =16THEN4 10 

420 IFN(X, Y)<>RTHENGOSUB700: PRINTCHR$ (18 
)" “CHRS(146)" * GOSUB4600: GOTO180 

450 RX=RX+35 [FRX >S4THENRX=5: RY=22 

440 POKECX, RX: РОКЕСУ, КҮ: SYSCR: PRINTCHRS ( 
5) RCHRS (154) : К=К+1 : 6050В7оо: PRINT" " 
450 POKESO+1, O: POKESO+4, 33: FORTZOTO2SSST 
EPS: POKESO+1, Т: NEXT: POKESO+4, O 

460 N(X, Y) =О: IFR<21 THENGOSUB600: 5070180 
470 PRINTCHRS (5) CHR$ (19) ТАВ (14) " YAY! 


500 РОКЕСХ, 14: POKECY, 16: SYSCR: PRINTCHRS ( 
S) "YOUR SCORE: "R-1: IFR-1»HSTHENHS-R-1 
510 РКІМТТАВ (14) "HIGH SCORE: "HS: 60518600 
2 FORT=1T01000: NEXT 

520 IF (PEEK (56321) AND1 6) =ОТНЕМ1 10 

S30 5070520 

600 IF (PEEK (56321) AND16) =ОТНЕМ&ОО 

610 RETURN 

700 POKECX, X (X, Y) : РОКЕСҮ, Y (X, Y) : SYSCR: RE 
TURN 

1000 FORBYTE=CRTOCR+9: READA: РОКЕВҮТЕ, А: М 
EXT 

1010 FORT=SOTOSO+24: POKET, О: NEXT: POKESO+ 
24, 6: POKESO+S, 15: POKESO+4, 15: RETURN 

1020 DATA24, 174, 10, 192, 172, 11,192, 76,240 
‚ 255 
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A Pause for Meditation 


Meditative Images 


Here is a program you can relax with. It generates different colors and 
images that show off the SHIFT and COMMODORE KEY graphics 
as well as the color capabilities of your Commodore 64. Hopefully it 
will provide a relaxing, slowly changing visual experience to savor, a 
respite after IQ madness. 


10 КЕМ 3x33 MEDITATIVE IMAGES +++ 

100 CR=49152: CY=CR+10: СХ=СҮ+1 : GOSUB900: F 
ORT=0TO4: FORUZOTO9: READK 

110 M$ (Т) =МФ (T) +CHRS (К) : NEXT: NEXT: POKESS 
280, 9: POKES3281, 2: PRINTCHRS (147) s CHRS (5) 
120 FOüRYZOTOSSTEPZ 

130 LI=INT (РМО (1) +5) 

140 IFLI-I(Y)THEN13O 

150 ICY) =LI:SRI=LI: IFLI>2THENRI=7-LI 
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160 ҒОКХ-ОТОҮ5ТЕР2 
170 ХТ-18-Х:ҮТ-10-Ү-Х: 60518800: РАТМТМ$ (L. 


180 XT218-X: YT212-4Y-X: GOSUB800: PRINTMS (L 
190 ХТ=20+Х: УТ=10-\+Х: 60548800: РАТМТМ$ (К 
200 ХТ=20+Х: УТ=12+\У-Х: 60518800: РАТМТМ$ (К 


210 NEXT: FORQ=1 TOO: NEXT: NEXT 

220 POKES3280, ІМТ (RND (1) #15) : GOTO120 

ВОО POKECX, XT: POKECY, YT: SYSCR: RETURN 

900 ЕОКВҮТЕ=СКТОСК+9: aba: POKEBYTE, A: NE 
XT: RETURN 

910 DATA24,174,10,192,172,11,192,76,240, 

255 

920 DATA31, 18, 169, 127, 146, 157, 157, 17, 127 
‚169 

950 рАТА156, 169, 127, 157, 157, 17, 18, 127,16 
9,0 

940 DATA158, 109, 110, 157, 157, 17, 110, 109, 0 
0 

9 

950 DATAS,109,109,157,157,17,110,110,0,0 
960 DATAS, 110, 110, 157, 157, 17, 109, 109,0,0 


In order to change the colors of the characters printed to the 
screen on the Commodore 64 you must print the character code 
corresponding to the color desired. That color will be the color of all 
subsequent prints until it is changed by printing another code. 
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The first character in each of the shapes defined in the program 
is a color code. For instance, the first number in the data on lines 950 
and 960 is a 5 which is the code for white. 

The background and border colors are set by POKEing a number 
from 0 to 15 into locations 53281 and 53280, respectively. On line 
110, POKE 53280,9 turns the border to brown and POKE 53281,2 
turns the background red. 

The codes for changing text colors are ASCII codes and may be 
found in the ASCII charts in the User's Guide or Reference Manual. 
But the POKEs to change the background and border colors are 
COLOR NUMBERS 0 to 15. A chart of these can also be found in the 
Manual or the Guide. 
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Т. games and puzzles іп this chapter require some thought. 

Their outcome is not decided by a spinner, a roll of dice, or any other 
chance device. If you work at them you should be able to figure out a 
way to solve their challenges (or, in one case, prove that a solution is 
impossible) and even beat the computer which has been programmed 
to play against you. If you read through the commentary on the games 
you'll also find out how to add a timer to your own games as well as 
some other information about game challenges and programming 
strategies. 
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The Pattern Game 


This game requires cooperation in an indirect way. You are given a 4 
x 4 grid and asked to make a pattern on it. Using a joystick, you can 
create a star pattern by moving the cursor to any spot on the grid 
where you would like to place a star. If you press the button, a star 
will appear on your grid. Press F4 when you are finished and your 
pattern will be covered over. Have a friend try to guess your pattern 
by moving the joystick and pressing the button to place a star where 
he or she thinks it might be. Here's where the cooperation comes in. If 
you don't create a regular pattern on the grid, your friend will cer- 
tainly have a hard time reconstructing your grid. In fact, if you simply 
place stars at random on the grid, the game will be no fun at all. You 
have to create a pattern that is challenging and decipherable. By the 
way, if your friend is getting frustrated he or she can press the 
F7 key to get a clue. One of the stars will be revealed. 
Here are a few challenging patterns: 


* * * * 
* n и * 
* и и * 
* * * * 


THE PATTERN GAME 
MAKE YOUR HIDDEN PATTERN. 


* 3c 


* 
* 
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10 КЕМ 43434 THE PATTERN GAME & 

100 DIMP1(3,3) ,P2(3,3) :50=54272: СК=49152 
: CY=CR+102 CX=CY+1 : GOSUB9I0O0:C (102122 

110 C(2)=42:C (3) =88: POKES3280, O: POKES328 
1,0: PRINTCHRS (147) š CHRS (S) 

120 ХТ=12:УТ=3: 5605086800: PRINT" THE PATTER 

М GAME": XT=7: УТ=5: 560508800 

150 PRINT"MAKE YOUR HIDDEN PATTERN...":X 

T=9: YT=8: GOSUBS00: К=1 : GOSUB700 

140 XT=4: YT=19: 60518800: PRINT"PRESS <F1> 
WHEN YOU’ VE FINISHED. : X=0: YzO: С =0 

150 Р=РЕЕК (56321) AND16: IFP=OTHENP 1 (X, Y) = 
Р1(Х,Ү) +1: IFP1 (X,Y) >ЗТНЕМР1 (X, Y?) =1 

160 IFP=OTHENXT=9+X#2: YT=8t+Y#2: GOSUBSOO: 
PRINTCHRS (С (P1 (X, v)) : 60848550 

170 GOSUB600: XT=9+X#2: YT=8+Y#2: 60508800: 

PRINT" "š IFX<>ZXORY< >ZYTHENGOSUB650 

180 GOSUBSOO: XT=9+X#2: YT=8+Y#2: BOSUBBOO: 

PRINTCHRS (C (P1 (X, Y) ) ) sGOSUBS00 

190 БЕТАФ: IFAS< >CHRS (133) ТНЕМРОКЕ 198,0: 6 

070150 

200 XT=4: YT=5: GOSUBSOO: PRINT“ NOW GUESS Т 

НЕ HIDDEN PATTERN... ":XT=9: УТ=8: 60518800 

210 K=3: GOSUB700: ХТ=24: YT=8: GOSUBB8OO: K=2 
: GOSUB700: ХТ=4: YT=21: GOSUB8O0O0: X=0: Y=0 

220 PRINT"PRESS «F7» TO GET A CLUE." 

400 P=PEEK (56321) АМО16: IFPZOTHENP2 (X, Y) = 

PZ (X, Y) +1: IFP2(X, Y) >STHENP2 (X, Y) =1 

410 IFP=OTHENX T=24+X#2: YT=8+Y*2: 60518800 
= PRINTCHR$ (С (P2 (X, Y) ) ) 1: GOSUBSSO 

420 GOSUB600: XT=24+X#2: YTz8*Y*2: 60818800 
PRINT" ": IFX< >ZXORY< »2ZYTHENGOSUB6SO 

430 GOSUBS500: XTz24--X*2: YT=8+Y*2: GOSUBSOOÓO 
$ PRINTCHR$ (C (PZ (X, Y) >) š GOSUBSOO 

440 GETAS: IFAS=CHRS (136) ТНЕМ750 
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450 ТЕА$< >СНА$ (133) ТНЕМРОКЕ 198, 0: 6010400 
460 POKE198, O: FORJ=0TOS: FORT=0TOS: IFABS ( 
Р1(Т,4)2<>Р2(Т,42 THENGOSUB4S70: GOTO400 
470 NEXT: NEXT: XTz1: УТ=5: GOSUBBOO: PRINT "Y 
OU DID IT WITH";CL; 

480 PRINTCHR$(157);" CLUES! PRESS <Fi>" 
: FORT=1 T09: GOSUB650: NEXT 

490 GETAS: IFAS< >CHRS (133) THENA90 

495 RUN 

500 FORT=1TOS: IF (PEEK (56321) AND16) =OOR (P 
ЕЕК (56521) AND15) < >15ТНЕМТ=З 

510 MXT: RETURN 

550 IF (PEEK (86321) AND16) ZOTHENSSO 

360 RETURN 


600 Z=(PEEK (56321) AND15) : 2Х=Х: ZVV: IFZ>8 
ANDZ< 12ТНЕМХ=Х-1 : IFX<OTHENX=0 

610 IFZ>4ANDZ<STHENX=X+1! IFX>3THENX=3 
620 IFZ=100RZ=140RZ=6THENY=Y-1! IFYXOTHEN 
Y=0 

630 IFZ=9ORZ=130RZ=STHENY=Y+1! IFY>3THENY 
=3 

640 RETURN 

650 POKESO+1, 100: POKESO+4, 33: FOR0=100T02 
SOSTEP 10: POKESO+1, Q: NEXT: POKESO+4, O 

660 RETURN 

670 POKESO+1, 100: POKESO+4, 33: FORQ=100T00 
STEP-1:POKESO+1, G: NEXT: POKESO+4, o 

680 RETURN 

700 FORJ=O0T03:FORT=0TO3: IFK=2THENPRINTCH 
RS (c (Pz (T, J) 5" "j 

710 ТЕК=1ТНЕМР1 (T, 0) =1: Pz (T, J) Z1: PRINTCH 
R (122) 3 "j 

720 IFK=3THENPRINT". "j 

730 NEXT: YT=YT+2: 60818800: NEXT: RETURN 
750 POxE 18, O: IFP1 (Xx, Y) <OTHEN400 

760 XTz94X42:YTz84Y42: GOSUBBOO: PRINTCHRS 
(C(P1(X,Y))) SCL=CL+12P2(X, Y) =Р1 (Xx, YO 

770 PI (Х,У) =-Р1 (X, Y) :GOTOAOO 

800 POKECX, XT: POKECY, YT: SYSCR: RETURN 

900 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 
XT: РОКЕВО+5, О: POE SO, 240: RETURN 

910 DATAZ4, 174, 10, 192, 172, 11, 192, 76, 240, 
255 
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3x 3 and 4 x 4 Number Puzzlers 


The 3x3 and 4x4 Number Puzzlers are computer versions of puzzles 
that are over 100 years old. The earliest versions of the puzzles con- 
sisted of wooden trays with numbered wood blocks laid into them as 
in this old drawing: 


T = = — — 


= os E 


The 4х4 puzzle consists of a 4х4 square grid with the numbers 1 
through 15 printed on the blocks. There is one blank square on the 
grid. The blocks can be moved onto the empty square and, little by 
little, shuffled around the entire grid. The puzzle consists of shifting 
the numbers around the grid and then reassembling them in consecu- 
tive order. Here is one possible challenge on the 4x4 board: 


Put this square in order so that 1 is at the top left and all the other 
numbers proceed in order from left to right and then top to bottom as 


in the first drawing: 
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21113514 
5161718 
910112 
15 15] _ 


The computer versions of the program first use а 3x3 board and 
the numbers | to 8, and then a 4x4 board and numbers 1 to 15. The 
computer shuffles the numbers for you and gives you a board to solve. 
The empty square is marked by double blocks (lil №). Using a joystick, 
you can move the empty square vertically or horizontally onto any ad- 
joining square. The number in that square will then move to the pre- 
viously empty square. Thus, in the computer version you are moving 
the empty square and the numbers are switched for you. The net 
result, however, is identical to moving the blocks into the empty 
square. There is a counter built into the program that will let you 
know how many numbers you have in the right place. 


SCORE: 


57 ; 


FH LI OIG E > - ии > 2 LE Ш 


— [£1 ET 
[: ] [е1 [77] 


[E] [e] [m=] 


1 REM 39 $ BY 3 PUZZLER 3** 

2 REM 

100 SD=54272:DIMP (2, 2), А (9): CR=49152:CY= 
СК+10: CX=CY+1 5 GOSUBSOO 

110 POKES3280, O: POKES3281, O: PRINTCHRS (14 
7) j CHRS (S) з CHRS (17) 

120 FORT=1T026: READK: Bt=BS+CHRS (К) š NEXT 
130 PRINT: PRINTTAB(8)"N UM BER Р 0 
Z Z Е"; СНК$ (158) 

140 FORYzOTO2: FORX=0TO2 

150 T=INT (RND (1) #9) š ІРА (Т+1) =1 ТНЕМВОТО15 


160 РОКЕСХ, 14+5#Х: РОКЕСҮ, 7+4*Y:SYSCR 

170 PRINTB$; : IFT< >OTHENPRINTRIGHTS (STR$ ( 
T? ,LEN(STR$(T)) -1) : GOTO190 

180 PRINTCHR$(18)" "СНКФ (146) : РХ=Х: РҮ=Ү 
190 А(Т+1) 21: P (OG, Y) =Т: NEXT: NEXT: GOTO310 

200 S=PEEK (56321) АМ015: OX R: OY=PY 

220 1Е8=14ТНЕМРУ=РУ-1 : IFPY<OTHENPY=0: GOT 
0200 

250 IFS=13THENPY=PY+1! IFPY>2THENPY=2: GOT 
0200 

240 IFS=11THENPX=PX-1: IFPX<OTHENPX=0: GOT 
0200 

250 IFS=7THENPX=PX+1! IFPX >2THENPX=2: GOTO 
200 

260 ТЕРХ=ОХАМОРУ=ОУТНЕМ200 

270 РОКЕСХ, 14+PX#5: POKECY, 7+РҮ#4: SYSCR: P 
АТМТВ$; СНА$ (18) " "CHR% (146) 

280 РОКЕСХ, 14+0X#5: POKECY, 7+0Ү#4: SYSCR: P 
RINTB$; 

290 PRINTRIGHTS (ТКФ (P (PX, PY)) ,LEN(STR$( 
P(PX,PY)))—1) 

300 P (OX, OY) =P (PX, PV): P (PX, PY) =O 
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310 POKESO+4, 33: FORT=1TO30: NEXT: РОКЕЗО+4 
, О: С=1 : FORY=0TO2: РОАХ=ОТО2 

320 IFP(X, Y) =ОТНЕМЗ 50 

330 IFP(X, Y) <>CTHEN340 

340 C=C+1 

350 NEXT:NEXT 

360 РОКЕСХ, 17: РОКЕСУ, 23 

370 SYSCR: PRINTCHRS (5) "SCORE: ";С-1;СНВ$ ( 
158) ; : POKESO+4, o: GOTO200 

500 FORBYTE=CRTOCR+9: READA: РОКЕВУТЕ, A: NE 
XT 

510 FORT=SOTOS0+24: POKET, О: NEXT: POKESO+2 
4, 6: POKESO+S, 15: РОКЕЅО+6, 15 

520 POKESO+1, 100: RETURN 

550 DATAZ4, 174, 10, 192, 172, 11, 192, 76, 240, 


255 


540 ратА176, 195, 195, 174, 17, 157, 157, 157,1 
57, 221, 32, 32, 221, 17, 157, 157, 157,157 
550 DATA1I73, 195, 195, 199, 145, 157, 157,157 


1 REM xx 4 BY 4 PUZZLER 39x 

2 REM 

100 80254272:DIMP (3,3) ,A(16) : CR 47152: CY 
=CR+10: СХ=СҮ+1 : GOSUBSOO 

110 POKESS280, O: POKES3281, О: PRINTCHRS (14 
7) $ CHR$ (5) § CHR$ (17) 

120 FORT=1T026: READK: В$=В$+СНЕ$ (К) : NEXT 

150 PRINT: PRINTTAB(8)"N UM B E R P U 

Z Z Е"; СНК$ (158) 

140 FORY=0TO3: FORX OTO 

150 T=INT (ВМО (1) #16) : ІРА (Т+1) =1THENGOTO1 


160 POKECX, 11+5#Х: POKECY , 7+4#Y: SYSCR 

170 РА1МТВ$; : IF T< »OTHENPRINTRIGHT$ (STRS ( 
T) ,LEN(STR$(T))-12:GOTO190 

180 PRINTCHR$(18)" "CHR$(146):PXzX:PYzY 
190 A(T+1)=15P (X,Y) Т: NEXT: NEXT: BOTOS10 

200 S=PEEK (36321) AND15: OX PX: OYzPY 

220 IFS=14THENPY=PY-1: IFPY<OTHENPY=0: GOT 
0200 

250 IFS“1STHENPY=PY+15 IFPY>3THENPY=3: GOT 
0200 

240 IFS=11THENPX=PX-15 IFPX<OTHENPX=0: GOT 
0200 

250 IFS=7THENPX=PX+15 IFPX >STHENPX=3: GOTO 
200 

260 ТЕРХ=ОХАМОРУ=ОУТНЕМ200 

270 РОКЕСХ, 11+PX#5: POKECY, 7+PY#4: SYSCR: P 
RINTBS3CHRS(18)" "СНКФ (146) 
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280 РОКЕСХ, 1140X45: POKECY, 7+0ү#4: SYSCR: P 
RINTB$; 

290 PRINTRIGHT$ (STR$ (p (PX, PV), LEN (STRG 
P(PX,PY)))-1) 

300 P (OX, OY) =P (PX, PY) :P (PX, PY) =O 

310 POKESO+4, 33: FUR TOO: NEXT: POKESO+4 
‚ 0: C21: FORYzOTOS: FORX=0TOS 

320 IFP(X, Y) =ОТНЕМ$50 

550 IFP (x, Y)<>CTHEN360 

340 С=С+1 

$50 МЕХТ:МЕХТ 

360 РОКЕСХ, 17: POKECY, 23 

370 SYSCR:PRINTCHR$ (5) "SCORE: "3 C-15 CHRS ( 
157) $ СНА$ (158) " "!:POKESO+4, o: GOTO200 

500 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 
XT 

510 FORT=SOTOS0+24: POET, o: NEXT: POKESO+2 
4, 6: POKESO+S, 15: POKESO+6, 15 

520 POKESO+1, 100: RETURN 

550 рАТА24, 174, 10, 192, 172, 11, 192, 76, 240, 
255 

540 DATA176, 195, 195, 174, 17, 157, 157, 157, 1 
S7, 221, 32, 32, 221, 17, 157, 157,157,157 

550 DATA173, 195, 195,189, 145, 157, 157, 157 


There is a slight problem with this puzzle. Not all mixes of 
numbers can be unscrambled. There are some positions that are 
impossible to move into consecutive order. Sam Lloyd, one of the 
great puzzle inventors of all time, discovered several such positions in 
the 18705 and іп one of his books describes how he turned this 
impossibility into a new challenge: 


Older inhabitants of Puzzleland will remember how in the seventies I 
drove the entire world crazy over a little box of movable blocks which 
became known as the “14-15 Puzzle.” The fifteen blocks were arranged 
in the square box in regular order, but with the 14 and 15 reversed as 
shown in the above illustration. The puzzle consisted of moving the 
blocks about, one at a time, to bring them back to the present position 
in every respect except that the error in the 14 and 15 was corrected. 

A prize of $1,000, offered for the first correct solution to the 
problem, has never been claimed, although there are thousands of 
persons who say they performed the required feat. 
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People became infatuated with the puzzle and ludicrous tales 
are told of shopkeepers who neglected to open their stores; of a distin- 
guished clergyman who stood under a street lamp all through a win- 
try night trying to recall the way he had performed the feat. The 
mysterious feature of the puzzle is that none seem to be able to 
remember the sequence of moves whereby they feel sure they suc- 
ceeded in solving the puzzle. Pilots are said to have wrecked their 
ships, and engineers rush their trains past stations. A famous Balti- 
more editor tells how he went for his noon lunch and was discovered 
by his frantic staff long past midnight pushing little pieces of pie 
around on a plate! Farmers are known to have deserted their plows, 
and I have taken one such instance as an illustration for the sketch. 

Several new problems which developed from the original puzzle 
are worth giving: 

Second Problem—Start again with the blocks as shown in the 
large illustration and move them so as to get the numbers in regular 
order, but with the vacant square at upper left-hand corner instead of 
lower right-hand corner (see Fig. 1). 

Third Problem—Start with the blocks as before, turn the box a 
quarter-way round and move the blocks until they rest as in Fig. 2. 

Fourth Problem—Start as before, then shift the pieces until they 
form a “magic square,” the numbers adding to thirty along all vertical 
and horizontal rows, and the two diagonals. 


1 2 3 4 8 12 
4 5 6 7 3 7 11 15 
8 9 10 11 2 6 10 14 
12 13 14 #15 1 5 9 13 
Fig. | Fig. 2 


Following are the answers to Lloyd's other challenges, taken from 
Dover Books’ Mathematical Puzzles of Sam Lloyd, edited by Martin 
Gardner whose commentary provides the answers to Lloyd's chal- 
lenges. 


[The original puzzle is impossible to solve except by such skull- 
duggery as turning the 6 and 9 blocks upside down. One of the 
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puzzles peculiarities is that any such interchange, involving two 
blocks, immediately converts the puzzle to a solvable one. In fact, any 
odd number of interchanges has the same effect, whereas an even 
number leaves the puzzle unsolvable as before. Readers interested in 
learning something about the interesting mathematical structure 
underlying this puzzle are referred to the classic analysis by W. W. 
Johnson and W. E. Story in their article, "Notes on the 15 Puzzle, 
American Journal of Mathematics, Vol. 2, 1879, p. 397f, and to briefer 
discussions of the puzzle in standard references on recreational 
mathematics.—M.G.] 

The other three problems are solved as follows: 

Fig. 1 can be reached in 44 moves: 14, 11, 12, 8,7,6, 10, 12, 8, 7, 4, 
3, 6, 4, 7, 14, 11, 15, 13, 9, 12, 8, 4, 10, 8, 4, 14, 11, 15, 13, 9, 12, 4, 8, 5,4, 
8, 9, 13, 14, 10, 6, 2, 1. 

Fig. 2 can be reached in 39 moves: 14, 15, 10, 6, 7, 11, 15, 10, 13, 9, 
5, 1, 2, 3, 4, 8, 12, 15, 10, 13, 9, 5, 1, 2, 8, 4, 8, 12, 15, 14, 13, 9, 5, 1, 2, 8, 4, 
8, 12. 

The magic square can be produced in 50 moves: 12, 8, 4, 3, 2, 6, 
10, 9, 13, 15, 14, 12, 8, 4, 7, 10, 9, 14, 12, 8, 4, 7, 10,9, 6, 2, 3, 10, 9, 6, 5, 1, 
2, 3, 6, 5, 3, 2, 1, 13, 14, 8, 2, 1, 13, 14, 3, 12, 15, 3. 

Try to figure out what characterizes an impossible challenge 
and certainly don't quit on the puzzles too soon. Something that may 
initially look impossible may merely be difficult. 


25 


Dozo 


Dozo is a game that Japanese GO masters use to warm up. It is decep- 
tively simple and involves a different sort of strategy than usually 
adopted in the more aggressive games of chess and checkers. Dozo 
requires that you play to not lose rather than play to win. This will 
become clear from a description of the board, pieces, and goals of the 
game. 
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Dozo is played оп a board that is an equilateral triangle. Іп our 


version of the game, each side is seven units long. Here is a picture of 
the board: 


There are four different pieces that you can use in the game. As 
opposed to most Western games, the pieces do not belong to any one 
of the players. On each move of the game, you can choose any one of 
the pieces and place it on any empty point on the board. The goal of 
the game is to be the first player to make an equilateral triangle of any 
size with the three vertices of the triangle having the same piece. 
Suppose the pieces were called 1, 2, 3, and 4. Here is a sample game 
winning position: 


Notice that the 2% in lines 3 and 5 make up an equilateral triangle. 
The player who placed the last 2 on the board is the winner. The 
player who placed the second 2 on the board trapped him- or herself 
into a losing position. The complexity of this game emerges from the 
fact that you always have to think about not making a move that will 
give your opponent an equilateral triangle. This involves analyzing 
positions that won't lead to a loss as well as looking out for winning 
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positions. Simple and direct aggression will almost always lead to а 
loss in this game. 

The Dozo program is the longest in this book and the most 
tedious to copy because it turns the computer into your opponent. 
Strategy for playing a good game of Dozo is built into the program and 
the computer is pretty hard to beat. However, the computer is not 
guaranteed a win and no one has yet analyzed Dozo fully enough to 
know what the best possible move is in any situation. Try your hand 
at crossing up the computer. It will take time and concentration. You 
will need a joystick to play this game. 
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10 КЕМ ++» DOZO & 14 

100 CR=49152: CVS CRY IO: CX2CY-1: GOSUB9000: 
POKES3280, 2: POKES3281, 0 

110 PRINTCHR$ (147) ; CHRS (5) :GOTO1000 

500 POKECX,H:POKECY, V: SYSCR: RETURN 

1000 605МВВООО: IFC« »17076THEN10000 


2000 POKE198, 0: 80SUB6000: GOSUB6200 


2100 605186500: IFFP=1THEN3000 

2110 H=1:V=2:GOSUB500:PRINT"MY TURN..." 
2120 IFCC(P)<=10RCC (P) =7ТНЕМ2400 

2130 ЕОКТ=ОТОСС-1:М1=М(Р,СС) :М2=М(Р,Т) F 
1=М1:Е2=М2: ІЕМ1 >М2ТНЕМЕ 1=M2:F2=M1 

2140 В=В(Р1) +(F2—(Fit1) ) 12: PISA (В) :Р2=А ( 
В+1) 

2150 IFP1<=27THENIFS (P1) =4STHENW1=P1: GOT 
02300 

2160 IFP2<=27THENIFS (P2) =45THENW1=P2: GOT 
02300 

2170 NEXT: GOTO2400 

2500 GOSUB6300: V=2: H=12: 60818500: PRINT" Y 
ІРРЕЕ! I WIN! II.: XIX (SX (W1), SY (W1) ) 

2310 YsY(SX(W1),SY(W1)) : РОКТ=1Т0О2:Н=Х: у= 
Y: 60818500: PRINTT$: FORJ=1T0120: NEXT 

2320 GOSUBSOO:PRINTJ$:FORJz1TO80: NEXT: NE 
ХТ: 60518500: PRINTT$: Х1=Х (SX (F1), SY (F1)) 
2330 Y1=Y(SX(F1),SY(F1)):X2=X(SX(F2),SY( 
F2)): Y2=Y (SX (F2) , SY (F2) ) SFORT=1T05 

2340 H=X:V=Y: GOSUBSOO: PRINTJ$:HzX1:VzY1: 
GOSUBSOO: PRINTJ$: H=X2: V=Y2: GOSUBSOO 

2350 GOSUBSOO: PRINTJ$: FORJ=OTOS80: NEXT: Н= 
X: VzY: 80808500: PRINTT$:HzX1:VzY1 

2360 GOSUBSOO:PRINTT$:HzX2: V2Y2: 60508500 
PRINT TS: ЕОКЈ=1Т0120: NEXT: NEXT 

2370 FORT=1T07500: NEXT: 80702000 

2400 P=0: IFCC (1) «CC (P) THENP=1 

2410 IFCC(2) «CC(P) THENP=2 

2420 ТЕСС (3) «CC (P) THENP=3 

2430 ЕР=Р:РС=-1 

2440 TT=0:TC=-1 

2500 IFTTX10THEN2520:REM POP WAS HERE 
2505 ТС-ТС%1:Т-ТС:ІЕТ>27ТНЕМФАОО 

2510 IFS(T)<>45THEN2505 

2515 80702555 

2520 T=INT (RND (1) #28) : IFS (Т) < >45ТНЕМ2520 
2525 ТЕСС(Р)=ОТНЕМ2600 

2530 TT=TT+1 

2555 FORJ=OTOCC (Р) –1:М1=М (Р, J) :M2=T:F1=M 
1:F2=M2: 1ЕМ1 >М2ТНЕМЕ1=М2: F2=M1 

2540 B=B (F1) +(Е2- (F141) #2:Р1=А (В) :Р2=А ( 
В+і) 

2545 IFP1<=27THENIFS (P1) =45ТНЕМ2500 
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2550 IFP2<=27THENIFS (P2) =45ТНЕМ2500 
2555 МЕХТ 


2600 T$-P$(P) 

2610 XzX(SX(T),8Y(T)2 : YzY(SX(T) ,SY(T) ) 
2620 FORK=1 TOS: H=X: V=Y: GOSUBSOO: PRINT TS: 
FORQ=1TOSO: NEXT: 60818500: PRINTJS 

2630 ҒОКО-17050: NEXT: NEXT: GOSUBSOO: PRINT 
TS 

2640 S(T) =ASC (TS) : PX (OT) =X (SX (T), SY (T)) ZP 
Y (Т) =Ү (SX (T) ,SYCT)) : МЕР, СССР) ) zT 

2650 CC(P)=CC(P) +1 

2700 FPz1:80TO2100 

3000 H=1:V=2:GOSUBSOO:PRINT"YOUR TURN... 


3100 IF (PEEK (56321) AND14) =OANDCC (P) <7THE 
NX=0: У=0: GOSUB6100: GOTO3500 

5110 Z=PEEK (56321) АМ015: IFZ=14THENP=P-1: 
IFP<OTHENP=3 

5120 IFZ=13THENP=P+1: IFP>STHENP=0 

3130 H=3: V=P#3+6:GOSUB500:PRINT" " 

3140 T$=P$ (P) 

5150 FORT=0T010: IF (PEEK (56321) AND16=0) TH 
ENGOSUBSOO: PRINTT$: 60703100 

5140 NEXT: 60848500: PRINT TS: FORT=0TO10: IF 
(PEEK (56321) AND16) =OTHEN3100 

3170 NEXT: 60103100 

3500 IF (PEEK (56321) АМО1 6) =OTHENGOSUB6100 
: GOTO3800 

5510 Z=(PEEK (56321) АМО15) :0X=X:DY=Y 

3520 IFZz14THENXzX-1:YzY-2 

3530 IFZ=13THENX=X+1! Ү=ү+2 

3540 IFZ=7THENX=X+1 

3550 IFZ=11THENX=X-1 

3560 IFZ=6THENY=Y-1 

3570 IFZ=9THENY=Y+1 

3580 IFZ=STHENX=X+1: Y=V+1 

3590 IFZ=10THENX=X-1!Y=Y-1 

3600 IFX<OORY>60RX >YTHENX=OX: Y=DY 

3610 SSzP(X,Y):J$zCHR$(S(SS)) : XSzX (Xx, v): 
YSzY(X, Y) 

3620 H2XS:VsYS:GOSUBSOO:PRINT" ":FORT-OT 
010: NEXT: GOSUBSOO: PRINTT$ 

3630 FORT=0TO10: IF (PEEK (56321) AND16) =ОТН 
ENGOSUBSOO:PRINTJ$:GOTOSSOO = 

3640 NEXT: GOSUBS00: PRINTJ$:FORT=O0TO10: IF 
(PEEK (56321) AND1 6) “ОТНЕМ550О 

3650 NEXT: GOTO3500 | 

3800 ТЕЗ (SS) <>45ТНЕМ№З510 

3810 S(SS)-ASC(T$):H-XS: V=YS: 60518500: PR 
ІМТТФ:РХ (SS) =XS: PY (SS) VS 

5820 M(P,CC(P) ) SS: Cc. cc (Р) : CC (P) SCC (CP) + 
1: IFCC (P) <ЗТНЕМЕР=0: GOTO2100 
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3830 FORT-OTOCC-2:M12M(P,CC) :2M2-M(P, T) SF 
1=М1:Е2=М2: IFM1 >М2ТНЕМЕ 1 H: F2=M1 
3840 B=B (F1) * (FZ- (F171 04: Pisa (B) :Р2=А ( 
B+1) 
5850 FORQ=T+1TOCC-1: IFP1=M(P,@) ORP2=M (Р, 
0) THEN4000 
3860 NEXT: NEXT: FPO: 80702100 
4000 GOSUB6300 
4010 Vz2:Hz11:808UBSOO:PRINT"YOU WON THE 
GAME ! " 
4020 FORT=1T07500: NEXT: GOTO2000 
6000 PRINTCHR$ (147) !FORX=0T06: FORY=0TO6: 
IFY<XTHENNEXT 
6010 H=X (X, Y) : VzY (X, Y) : 60518500: РАТМТ"-" 
s NEXT: NEXT: РОРТ=ОТОЗ: HS: V=T#3+6 
6020 GOSUBSOO: PRINTPS (T) : NEXT: FORT=0T027 
: 5 (Т) 245: NEXT: FORT=0TO3: CC (Т) =0: NEXT 
6030 RETURN 
6100 IF (PEEK (56321) AND1 6) =OTHEN6100 
6110 RETURN 
6200 V22:H-11:80SUBSOO: PRINT"WILL YOU GO 
FIRST?" 
6210 BETA$:IFA$z""THEN6210 
6220 IFA$z"N"THENFP:0: RETURN 
6230 IFAS="Y"THENFP=1: RETURN 
6240 GOT06210 
6300 H=0:V=2: 60618500: PRINT" 
: RETURN 
6400 РС=РС+1:Р=РС: IFP<4THEN2440 
6410 T=INT (RND (1) #28) : IFS(T) <>45THEN6410 
6420 P=EP:GO0TO2600 
8000 DIMA(756) ,S (27) , PX (27) , PY (27) ,B(26) 
‚Р(6,6),Х(6,6),\(6,6),М($, 6) 
8010 J$z'"-":PRINTCHR$ (145) : DIMSX (27) , SY ( 
27) : ҒОКХ=0Т06: FORY=0TO6: IFY< ХТНЕММЕХТ 
8020 Х(Х,Ү) =20-Үж2+4#Х:ҮХ,Ү) -Үж34-4: NEXT 
: NEXT: ЕОКТ=ОТОЗ: READK: P$ (T) =СНА$ (К) 
ВОЗО NEXT: T=0: FORY=0T06: FORX=OTO6: IFX>YT 
HENNEXTY 
8040 Р(Х,У) =Т: SX (Т) =Х: SY (Т) SY: Т=Т+1: NEXT 
: NEXT: V=10:H=14: 60808500: FORTzOTO26 
8050 READB(T):NEXT:PRINT"PLEASE WAIT":C= 
О: FORT=1 T0756: Mapa (T) : С=С+А CT) š NEXT 
8060 RETURN 
9000 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: М 
EXT: RETURN 
9100 DATA24, 174, 10, 192, 172, 11, 192, 76, 240 
‚255 
9500 РАТА119, 123, 42, 118 
9400 DATA1,55, 107, 157, 205, 251, 295, 557,57 
7,415, 451, 485, 517, 547, 575, 601, 625, 647 
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9410 DATAS47, 685, 701, 715, 727, 737, 745,751 
‚ 755 

9500 DATA2,32,1,32,5,32,32,32,3,32,9,32, 
32, 32, 32, 32, &, 32, 14, 32 

9510 РАТАЗ2, 32, 32, 32, 32, 32, 10, 32, 20, 32, 8 
2, 32, 32, 32, 32, 32, 32, 32, 15, 32 

9520 DATAZ7, 32, 32, 32, 32, 32, 32, 32, 32, 32,3 
2, 32, 21, 32, 0, 4, 4, 32, 2, 3 

9530 Dara, 32, 8, 32, 3, 32, 6, 32, 11, 32, 13, 32 
„9, 32, 32, 32, 10, 32, 16, 32 

9540 DATAI9, 32, 14, 325 32, 32, 32, 32, 15, 32,2 
2, 32, 26, 32, 20, 32, 32, 32, 32, 32 

9550 DATA32, 32, 21, 32, 32, 32, 8, 32, 1, 3, 4, 32 
„13, 32, 9, 32, 3, 32, 7, 32 

9560 DATAI9, 32, 14, 32, 32, 32, &, 32, 11, 32, 26 
, 32, 20, 32, 32, 32, 32, 32, 10, 32 

9570 ОАТА16, 32, 32, 32, 27, 32, 32, 32, 32, 32, 3 
2, 32, 18, 32, 22, 32, 1,7, 0, 12 

9580 DATA7, 32, 4, E, 2, 11, 17, 32, 12, 32, 8, 32, 
5, 10, 16, 32, 23, 32, 18, 32 

9590 DATAIS, 32, , 32, 15, 32, 22, 32, 32, 32, 25 
32, 1, 32, 14, 32, 32, 32, 21, 32 

9600 РАТАЗ2, 32, 32, 32, 2, 8, 12, 32, 3, 8, 8, 7, 1 
2, 32, 18, 32, 13, 32, 6, 5 


9610 DATAL1, 32, 17, 32, 25, 32, 19, 32, 14, 32, 1 


o, 32, 16, 32, 23, 32, 52, 32, 26, 32 

9620 DATA20, 32, 32, 32, 15, 32, 22, 32, 32, 32, 1 
8, 32, 1, 13, 4, 9, 8, 32, 23, 32 

9630 Dar a1, 32, J, 14, 7, 32, 12, 32, 32, 32, 26, 
32, 20, 32,6, 32, 11, 32, 17, 32 

9640 Da TAZ 2, 32, 32, 32, 27, 32, S2, 32, 10, 32, 1 
6, 32, 23, 32, 3,111, 17,0, 24 

9650 DATA11, 32, 7, 10, 4, 15, 2, 23, 32, 32, 17, 5 
2, 12, 32, 8, 15,5, 22, 32, 32 

9560 DATA32, 32, 24, 32, 18, 32, 13, 32, 9, 21, 32 
„32, 32, 32, 32, 32, 4, 12, 2, 18 

9570 DATA17, 32, &, 12, 8, 11, 8, 17, 24, 32, 24,3 
2, 18, 32, 10, 15, 9, 16, 23, 32 

9580 DATA32, 32, 32, 32, 25, 32, 19, 32, 14, 18, 2 
2, 32, 32, 32, 32, 32, 3, 13, 24, 32 

9690 DATAZ, 18, 7, 13, , 12, 18, 32, 32, 32, 25, 3 
2,6, 19, 11, 14, 17, 32, 24, 32 

9700 DATAS2, 32, 32, 32, 26, 32, 10, 20, 16, 32, 2 
3, 32, 32, 32, 32, 32, 1, 28, 4, 12 

9710 DATAG, 14, 13, 32, 32, 32, 2, 32, 3, 26, 7, 20 
12, 32, 18, 32, 32, 32, 32, 32 

9720 БАТАЗ2, 32, &, 27, 11, 32, 17, 52, 24, 32, &, 
16, 3, 23, 1, 32, 0, 32, 16, 32 

9730 Da al 1, 18, 7, 22, 4, 32, 32, 32, 32, 32, 25, 
32, 18, 16, 12, 21, 8, 32, 8, 32 

9740 Dar A2, 32, J2, 32, 7, 17, 4, 24, 2, 32, 23, 3 
2, 10, 17, 12, 16, 8, 23, 8, 32 
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9750 DATAS2, 32, 32, 32, 24, 32, 15, 18, 13, 22,9 
‚ 32, 32, 32, 32, 32, 8, 18,5, 25 

9760 DATAS2, 32, &, 24, 11, 18, 13, 17, 9, 24, 32, 
32, 32, 32, 32, 32, 10, 25, 16,19 

9770 DATA14, 23, 32, 32, 32, 32, 9, 19, 32, 52,3, 
32, 7, 23, 12, 19, 14, 18, 25, 32 

9780 РАТАЗ2, 32, 32, 32, &, 32, 11, 26, 17, 20, 24 
, 32, 32, 32, 32, 32, 1, 32, 4, 32 

9790 DATAS, 26, 13, 20, 19, 32, 32, 32, 32, 32, 5, 
32,7, 32, 12, 27, 18, 32, 25, 32 

9800 DATAIO, 22, 6, 32, 3, 32, 1, 32, 0, 32, 22, 32 
„16, 21, 11, 32, 7, 32, 4, 32 

5810 DATAZ, 32, 32, 32, 11, 23, 7, 32, 4, 32, 2, 32 
, 32,32, 15, 23, 17, 22, 12, 32 

9820 Da TAE, 32,5, 32, 32, 32, 12, 24, 8, 32,5, 32 
32, 32, 10, 32, 16, 24, 18, 23 

9830 DATAIS, 32,9, 32, 32, 32, 13, 28, 9, 32, J2, 
32,6, 32, 11, 32, 17,25, 19, 24 

9840 DATA14, 32, 32, 32, 14, 26, 32, 32, 3, 32, 7, 
32, 12, 32, 18, 26, 20, 25, 32, 32 

9850 DATAS2, 32, 1, 32, 4, 32, 8, 32, 13, 32, 19,2 
7, 26, 32, 18, 32, 10, 32, &, 32 

9860 DATAZ, 32, 1, 32, O, 32, 16, 32, 11, 32, 7, 32 
4, 32, 2, 32, 17, 32, 12, 32 

9870 DATAS, 32,5, 32, 18, 32, 13, 32, 9, 32, 19, 3 
2, 14, 32, 20, 32 

10000 PRINT" INCORRECT DATA IN LINES 9 
500-9870": END 
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our Commodore 64 has а powerful music function with a 
nine octave range. This section contains several music programs that 
take advantage of this power. 
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%%% DY уа o Sa ЛУ ff) Z S A SDS 


ссссссссссссвсссссссоссссссссссссссвсссссссс 


High Note Low Note 


In this game you use a joystick to rearrange a series of notes from 
high to low. Eight notes are scrambled and hidden under squares on 
the screen. 


HIGH NOTE 


LOW NOTE 


By pushing the joystick forward or backward, you move up and 
down the musical scale. Press the button to pick up a note in position 
and carry it to another position. Press the button again to drop the 
note. Put the lowest note at the bottom of the screen and the highest 
at the top. The computer will let you know when you have succeeded 
in ordering the notes. 


10 КЕМ #*### HIGH NOTE LOW NOTE & 

100 50=54272:Р0КЕЗО+24, 15: CR=49152: CY=CR 
+10: CX=CY+1 : GOSUB900 

110 POKES3280,8: POKES3281, 2: PRINTCHRS (14 
7) 3 CHR$ (5) 

120 FORT-1TO8:READK: B$=B$+CHR$ (К) : NEXT: F 
ОКТ-1709:КЕАПК: D$=D$+CHRS (К) : NEXT 

150 FORT=1T07: READK: С$=С$+СНА$ (К) : NEXT: Е 
ORTzOTO7:P(T)Z2-1: NEXT: FORT=0TO7 

140 К=ІМТ (КМО (1) #8) š ІРР (R) >-1ТНЕМ1 40 
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150 P(R)=T:NEXT: O=INT (RND (1) #4) #8 

160 Х=7:Ү=2:808ИВВОО:РЕ1МТ"Н16Н NOTE":FO 
АТ=ОТО7: Х=19: Y=1+T#3: 60518800: PRINTB$ 
170 В=М(Р (Т) +0) : GOSUBSOO: NEXT: Х=23: Y=22: 
60518800: PRINT"LOW NOTE": GOSUB600 

180 IF (PEEK (56321) AND16) =OTHEN400 

185 GETAS: IFAS=CHRS (133) ANDW=1 THENRUN 
190 POKE198, o: IF (PEEK (56321) AND15) =15ТНЕ 
N180 

200 KY=YY: Z= (PEEK (56321) AND15) : IFZ=14THE 
МҮҮ=ҮҮ-1 : ТЕУУ<ОТНЕМУ\У=0 

210 1Е7=15ТНЕМҮҮ=ҮҮ+1:1ЕҮҮ>7ТНЕМҮҮ=7 

220 ТЕУУ=КУТНЕМ1 8O 

230 X=19:Y=1+KY#3: 60818800: PRINTBS: GOSUB 
600: GOTO180 

400 NNz1-NN:KYzYY:GOSUB&600 

410 IF(PEEK (56321) AND16) =ОТНЕМ410 

420 GOTO180 

500 POKESO+1, 8/256: POKESO, S-INT (8/256) «2 
Se: POKESO*4, 17: FORQ=1T0100: NEXT 

510 POKESO+4, 0: RETURN 

600 X=19: Y=1+YY#3: 80818800: IFNN=1 THENPRI 
NTC$: ТЕР (YY) :Р (ҮҮ) =P (KY) SP (KY) zT 

610 IFNN=OTHENPRINTDS 

620 S=M (P (YY) +0) : 80818500: С=0: FORT-OTO7: 
ТЕР (T) =СТНЕМС=С+1 : NEXT: GOTO700 

630 GOTO730 

700 IFNN=1 THENRETURN 

710 X=4:Y=10:GOSUBSO0:PRINT"YOU DID IT!" 
: X225: GOSUB800: PRINT"PRESS <Fi>":W=1 

720 RETURN 

750 IFNN-1THENRETURN 

740 X24: Y210:80SUB800:PRINT" " 
: X225: 60308800: PRINT" "sW=0 

750 RETURN 

800 POKECX, X: POKECY, Y: SYSCR: RETURN 

900 FORBYTEZCRTOCR-*9: READA: POKEBYTE, А: NE 
ХТ: POKESO+5, О: POKESO+6, 240: DIMM (31) 

910 FORTZOTOS1:READM(T) : NEXT: RETURN 

920 DATAZ4, 174, 10, 192, 172, 11, 192, 76, 240, 
255 

930 DATASSS83, 8101, 7217, 6430, 5728, 5407, 48 
17,4291 

940 DATA7217, 6430, 5728, 5407, 4917, 4291, 40 
50, 3608 

950 DATA6430, 6069, 5407, 4817, 4291, 4050, 36 
08,3215 

960 DATAS407,4817,4291,4050, 3508, 3215, 30 
34,2703 

970 DATA18, 32,32, 157, 157, 17,32,32 

980 рАТА18, 169,127, 157, 157, 17, 146, 127,16 
9 
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990 DATA110, 109, 157, 157, 17, 109, 110 

1000 DATA18, 169, 127, 157, 157, 17, 146, 127, 1 
69 

1010 DATA110, 109, 157, 157, 17, 109, 110 


Here are the DATA statements used in the program. Notice 
that each line has eight numbers representing the eight notes used in 
the game and also that these numbers are ordered from low to high. 
You can change these statements and put your own scales or inter- 
vals in their place. Be sure, however, to keep eight notes on a line and 
order them from lowest to highest. Your reference manual will give 
you note/number equivalents. 


920 DATAZ4, 174, 10, 192, 172, 11,192, 76, 240, 
255 

930 DATASS83, 8101, 7217, 6450, 5728, 5407, 48 
17,4291 

940 DATA7217, 6430, 5728, 5407, 4817, 4291, 40 
50, 3608 

950 DATAG430, 6069, 5407, 4817, 4291, 4050, 36 
08, 3215 

960 DATAS407, 4817, 4291, 4050, 3608, 3215, 30 
34, 2703 

970 DATAIS, 32, 32, 157, 157, 17, 52,52 

980 DATAIS, 169, 127, 157, 157, 17, 146, 127,16 
9 

990 DATA110, 109, 157, 157, 17, 109, 110 

1000 РАТА1В, 169, 127, 157, 157, 17, 146,127, 1 
69 

1010 DATA110, 109, 157, 157, 17, 109,110 
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Ihe Guitar Tuner 


You can use this program to tune your guitar. The screen presents 
you with a picture of a grid indicating the six strings on a guitar. Just 
press the number corresponding to any string to turn on that tone. 
When you want to turn off the tone, press any key. 


TRE A RI T TOR ТЫНЕН 


10 REM s GUITAR TUNER жн 

100 PRINTCHR$ (147) : PRINT: 80254272: POKESO 
+24, 15: РОКЕЅ0+5, О: POKESO*6, 240: DIMS (1,5) 
110 FORU=OTOS: FORT=0TO1: READS (T, U): NEXT: 
NEXT! PRINT TaB (12) "THE GUITAR TUNER" 

120 FORT=1T011!:READG1, G2, G3:G61$=G1$+CHRS 
(G1) :62$=62$+СНА$ (62) :65$=65$+СНА$ (G3) 
130 МЕХТ:РАТМТ: PRINT: РАТМТТАВ (14) 61$: FOR 
T21TOS:PRINTTAB (14) 82$: PRINTTAB (14) 63$ 
140 МЕХТ: PRINT: РАТМТТАВ (14) "6 5 4 3 2 1" 
: POKESO+4, 17: 60518250 

150 GETAS: IFAS=""THEN150 

160 Az7-VAL (as): GOSUB250: IFA<10RA>S6THEN1 
50 

170 РОКЕЅО, S (O, A-1) :POKESO+1, S (1, A-1) : PR 
INTCHR$ (19) :PRINT:PRINT: PRINT 

180 PRINTTAB (127 ) CHR$ (113) : БОТО150 
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250 PRINTCHR$ (19) :PRINT:PRINT:PRINT:PRIN 
TTAB (14) " 

260 POKESO, О: РОКЕЗО+1 , О: RETURN 

500 DATA143, 10, 32, 14, 205, 18, 30, 25, 165, 31 
„62, 42 

510 DATA178, 194, 123, 99, 52,99 

520 DATA178, 194, 123,99, 32,99 

530 DATAI79, 194, 123, 99, 32,99 

540 DATAI78, 194, 123,99, 32,99 

550 рАТА178, 194, 123, 99, 32,99 

560 DATAI79, 194, 123 


Guitar Chord Tutor 


Once you've got your guitar tuned up, you might want a little help 
with mastering guitar chords. This program will give you the finger- 
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ing, name, and sound of the chords most commonly used оп the 
guitar. 


GUTE A CHORD THTOR 


The Guitar Tutor program displays the top frets of a guitar 
finger board and the most used chords in five keys. Type the letter 
corresponding to the chord you want to learn. Press CONTROL plus 
a letter to select a major seventh chord. Press the numbers one 
through six to hear each note of the chord. The numbers on the frets 
tell you which fingers to use in forming the chord. 


10 КЕМ жж GUITAR CHORDS TUTOR ** 

100 DIMS(5,3),A(1, 6) :50=54272: СК=49152: С 
Y2CR*10: CX2CY*1: GOSUB900: POKESS280, О 

110 ОТМТ$ (10, 1, 5): POKES3281, O: PRINTCHRS ( 
147) š CHRS (5) :SFORTZOTO10:FORU-ZOTOS 

120 FORV=0TO1: Raab TS (T, V, О) : NEXT: NEXT: МЕ 
XT 

130 FORT=O0TOS: FORJ=0TOS: READS (T, J) : NEXT: 
NEXT: РОРТ=1ТО1 1: READK,L,M: AS=AS+CHRS (К) 
140 BS=BS$+CHRS (L) š СФ=СФ+СНКФ (М) š NEXT: ХХ= 
21: ҮҮ=4: FORJ=0TO1 : РОКТ=ОТО6: READA (J, Т) 
150 NEXT: NEXT: X=10: Yz1: BOSUBBOO: PRINT "GU 
ITAR CHORD TUTOR": FORT=0TO4: FORJ=0TO2 
160 Xx SST JA: Y=5+T#2: 60848800: READT$: PRIN 
ТТФ: NEXT: NEXT: X22: Y=20: 608018800 

170 PRINT"<NUMBER> PLAY STRING": PRINT" 
«LETTER» MAJOR CHORD" 

180 PRINT" <CONTROL LETTER? SEVENTH CHO 
RD": А=67: GOTOS00 
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200 GOSUB700: FORT=0TOS: P=VAL (T$ (ЕЕ+#&+А (Е 
F,A),0,T)) :ТФ=ТФ (FFH (FF, ah, 1, 7) 
210 C( T) SP: P- (P< >-1) *: Х=ХХ+10-Т#2: Y=YY 
17 n: 60818800: PRINT TS: NEXT 
220 SE TSAVVʒ IFQ$=""THEN220 
230 A=ASC (0%) : IFA<490RA>S4THENSOO 
240 A=A-49: GOSUB750: Х=ХХ+10-А#2: Y=YY+14: 
60518800: PRINTCHRS (113) 
250 IFC (A) 2-1 THENGOSUB600 
260 GOTO220 
500 IFA>OANDA<STHENSSO 
310 IFA«650RA»71THEN220 
520 А=А-65: IFA=1THEN220 
330 Х=55: Y=7: 60518800: PRINTCHRS (65+А) ; " 
"s FF=0: GOTOZ00 
350 А=А-1: IFA=20RA=STHEN220 
360 Х=55: vr: GOSUBS00: PRINTCHRS (654-4) ; "7 
":FF=1: 60Т0200 
600 8-8(A,C(A) ) :РОКЕБО+1 ,5/256:РОКЕЗО, S- 
INT (S/ 256) #256 
610 POKESO+4, 17: FORTz1TO250: NEXT: POKESO+ 
4, O: RETURN 
700 XsXX:YzYY-1:G808UB800: PRINT" 

"s YzYY: GOSUBB00: PRINTAS 
710 FORT=1TO10STEP2: Y=YY+T: 60508800: PRIN 
TBS: Y=Y+1: 60508800: РКІМТСФ: NEXT: Y=Y+2 
720 GOSUBSOO:PRINT"6 S 4 3 2 1" 
750 Х=ХХ:Ү=ҮҮ+14: 60508800: PRINT" 

"s RETURN 

799 STOP 
ВОО POKECX, X: POKECY, Y: SYSCR: RETURN 
900 FORBYTE=CRTOCR+9: Mapa: POKEBYTE, А: NE 
XT: РОКЕЗО+5 , 9: POKESO+6, О: POKESO+24, 15 
910 RETURN 
920 DATA24, 174,10,192,172,11,192,76, 240, 
255 


930 DATA0,0,2,4,2,3,2,2,0,0,0,0,0,0,1,1, 
0,0,2,2,5,2,-1,Х 

940 БАТА2,2,5,5,2,1,0,0,0,0,-1,Х,0,0,0,0 
‚1,1,2,5,2,2,0,0 

950 DATA1,1,1,1,2,2,3,4,3,3,1,1,3,3,0,0, 
0,0,0,0,2,1,3,2 

950 DATAO, o, 2,3, o, o, 2, 2, o, o, o, o, 2, 4, o, o, 
2, 3, 1,1, 2, 2,1, X 

970 DATZ, 3, 1, 1, 2, 2, 0, 0, o, 0, 1, X, o, o, 5, 4 
„1, 1, 2, J, 2, 2, 0, 0 

980 DATA, 1, 0, O, o, o, o, o, 2, 2, 3, 3 

990 DATA10814, 11457, 12139, 12860, 8101, 858 
3, 9094, 9634, 6430, 6812, 7217, 7647, 4817 
1000 DATAS103, 5407, 5728, 3608, 3823, 4050, 4 
291, 2703, 2864, 3034, 3215 

1010 DATA178, 125, 123, 99, 32, 99, 178, 125, 12 
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3,99, 52,99, 178, 125, 123, 99, 52, 99, 178, 125 
1020 РАТА!25, 99, 32, 99, 178, 125, 123,99, Ja, 
99, 178, 125,123 

1030 DATAO, o, 1, 2, 3, 4, 3, o, 1, 0, 2, 3, o, 4 
1040 РАТАС, 67, F, 8, D7, c, D, a7, 8, a, E7, D, E, B 
7,0 


27, 


Music Match and Noise Match 


Here are two matching games involving sound. In the Music Match 
game you are presented with a grid with the letters from A to P 
printed in order in the squares. When you press a letter, you will hear 
a tune. Each tune is repeated twice on the grid. The goal of this 
two-player game is to press two letters on your turn that play the 
same tune. The game provides good ear training. You have to 
remember tunes and match them up. Each player presses two letters 
per turn. Whenever someone makes a match, however, they get 
another chance. Here's a picture of the grid followed by the game 
program: 


Зе THE PESTLE MATCH Чаа Е. эм 


SCORE: Ө ——— Ba SCORE: Ө 


PRAYER 2 
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CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CC 


10 REM 3s: MUSIC CONCENTRATION ### 
100 S0=54272: CR=49152: CY=CR+10: CX=CY+1:D 
IMJ (16) ,A(16),X (150, Y (15) :PL=1: GOSUB9OO 
110 РОКЕБЗ280, 6: POKES3281, 6: PRINTCHRS (14 
7) $CHR$ (5) š 5070400 

200 ONR+i1GOSUB250, 260, 270, 280, 290, 300,51 
0,320 

210 POKESO+1,0:POKES0+4, 17 

220 POKESO+1,N (MU) /256: POKESO, М (MU) —INT ( 
N (MU) /256) #256: FORU=1 TON (MU+1) #50: NEXT 
230 POKESO+4, O: MU=MU+2: IFN (MU) >ОТНЕМ210 
240 RETURN 

250 MU=00: RETURN 

260 MU=39: RETURN 

270 MU=70: RETURN 

280 MU=91! RETURN 

290 MU=112: RETURN 

500 MU=153: RETURN 

510 MU=184: RETURN 

320 MUz215:RETURN 

400 ЕОКТ-0Т035: READK: AS=AS+CHRS (К) : NEXT: 
als LEF TS (AS, 9) :А2$=М10$ (AS, 10, 9) 

410 AZ$=MID$ (A$, 19, % :1 =0: FORY=OTOS: FORX 
zOTOS:X(L)z164X42:Y(L)z74Y&*2:L-L*1:NEXT 
420 NEXT: Xz6: Yz2: GOSUBBOO: PRINT" жән MUSI 
C CONCENTRATION ###":X=15:Y=6 

430 GOSUBS00: PRINTA1$!:FORT=1TO3: PRINTTAB 
(15) з A28: PRINT TAE (15); ASV: NEXT 

440 PRINTTAB (15) 3 А2%: РКІМТТАВ (15) 3 RIGHTS 
(AS, 9) SFORT=0TO15: Х=Х (Т) : Ү=Ү (T) : 60818800 
450 PRINTCHR$ (Т+65) : NEXT: РОАТ=ОТО15: A(T) 
=-1: NEXT: РОАТ=ОТО7 : РОРО=ОТО1 

460 R=INT (RND (1) #16) 2 IFA (К) >-1ТНЕМ460 
470 A(R)-T:NEXT: NEXT: 60808790: Х=4: У=12: 6 
OSUBS00: PRINT" 

480 PLci-PL:80SUB790:X-4: Y-12: BDSUB800: P 
RINT" 

490 IFPL=OTHENGOSUBS00:PRINT"PLAYER 1" 
500 Xz27:608UB800:PRINT" "s IFPL=1 
THENGOSUBS00: PRINT"PLAYER 2" 

510 РОРС=ОТО1 

520 GETAS: IFAS<"A"ORAS>"P" THENS20 

550 A=ASC (AS) -65: IFC=1 THENIFA=K (О) THENS2 
0 

540 IFA (A) =1ТНЕМ520 

550 X=X (A) : Y=Y (А) : 60348800: PRINT" 4" : R=A ( 
А) : GOSUB200: К (C) A: (С) R: NEXT 

560 IFR (О) =R (1) THEN600 

570 FORC=0TO1: Х=Х (К (С) ) : У=У (К (С) ): se 
OO: PRINTCHR$ (65+К (С) ) : МЕХТ: GOTO480 

600 FORC=0TO1: Х=Х (K (С) ) : У=У (K (С) ) : GOSUBB 
ОО: PRINTC HRA (18);" ":J(K(C))-1:NEXT 
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610 PRINT: S (PL) =S (PL) +10: 60618790: ММ=ММ+ 
1: IFMM<8THENPL=1-—PL: GOTO480 

620 Х=2: Ү=17: GOSUBS00: IFS (0) =5 (1) THENPRI 
NT"TIE GAME! ":GOTO650 

630 Т=1:1Е 5(1) >S (00 THEN T=2 

640 PRINT"YOU DID IT PLAYER";T 

650 X=12:Y=21:GOSUB800:PRINT"PRESS ANY К 
ЕҮ..." 

660 GETAS: IFA$-""THENA60 

670 RUN 

789 GOTO789 

790 Xz4:Y38:G0SUB800:PRINT"SCORE: ; S (0) : 
Х=27: 60518800: РКІМТ "СОКЕ: ";5 (1) : RETURN 
ВОО POKECX, x: POKECY, Y: SYSCR: RETURN 

900 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: МЕ 
ХТ: POKESO+24, 15: POKESO+S, О: РОКЕБО+6, 240 
910 DIMN (257) : ҒОКТ=070257 : ВЕАОМ (T): NEXT: 
RETURN 

920 рАТА24, 174, 10, 192, 172, 11,192, 76, 240, 
255 

1000 DATA6430, 2, 8583, 2, 6430, 2, 7217, 2,643 
o, 1, 6430, 1, 8583, 2, 6430, 2, 7217, 2, 6430, 1 
1010 DATA6430, 1,8585, 2, 6430, 2, 7217, 2,643 
o, 1, 6430, 1,5407, 2, 4817, 2, 4291, 3,0 

1020 DATA4817, 2, 6430, 2, 6430, 2, 6430, 2, 481 
7, 2, 5407, 2, 5407, 2, 4817, 2, 4817, 2, 6430, 2 
1030 DATA6430, 2, 7217, 2, 7217, 2, 8101, 4, 643 
0,4,0 

1040 DATA6430,1,6430,1,6430,2,5728,2,540 
7,2,5407,2,4817,2,5407,2,5728,4,4817,4,0 
1050 DATA4817, 4, 4817, 4, 4817, 5, 5407, 1, 604 
9, 4, 6069, 3, 5407, 1, 6069, 3, 6450, 1 

1060 DATA7217,8,0 

1070 БАТА4В17,2,8101,1,8101,1,8101,1,810 
1, 1, 8583, 2, 8101, 2, 7217, 2, 7217, 4, 4817, 1 
1080 DATA4817, 1, 7217, 1, 7217, 1, 7217, 1, 721 
7, 1,8101, 1, 8101, 1, 7217, 2, 6430, 2, 6430, 4,0 
1090 DATAB101, 2, 430, 4, 8101, 2, E430, 3,643 
o, 1, 5407, 1, 4817, 3, 6430, 1,6450, 1, 6430, 1 
1100 DATAS430, 1, 8101, 1, 9634, 1, 97634, 2,963 
4,4,0 

1110 DATA6430, 2, 8101, 2, 8583, 2, 9634, 4,810 
1, 4,8101, 2, 6430, 2, 8101, 2, 8583, 2, 9634, 4 
1120 DATAS101, 2, 10814, 2, 9634, 4, 8101, 4, 72 
17, 4, o 

1150 DATA6430, 4, 6430, 3, 7217, 1, 8101, 4, 810 
1, 4, 7217, 3, 6430, 1, 7217, 5, 8101, 1, E430, 4 
1140 DATA4817, 4, 6430, 4, 6430, 3, 7217, 1, 810 
1, 4, 8101, 4, 7217,3, 6450, 1, 7217, 3, 68101, 1 
1150 DATA6430, 4,0 

1500 DATA17&, 99, 178, 99, 178, 99, 178,99, 174 
1510 DATA9S, 32, 98, 32, 98, 32, 98, 32,98 
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1520 DATA171,99, 123,99, 123,99, 123,99,179 
1550 DATA173, 99, 177, 99, 177, 99,177, 99, 189 


The Noisy Match or, as we've called it, Noisy Concentration 
uses the same grid as Music Match and is played in the same way. 
However, it uses the special effects and game sounds like zooms and 
crashes instead of tunes. It is an easier game to play than Music 
Match and you might want to begin with it rather than with Music 
Match. 

If you study both of these programs carefully you'll find that the 
main difference between them is in their DATA statements in line 
900 and on. You can copy one of the programs and then, after saving 
it, modify what you copied to get the other one. That should save 
some time. 

You can also change the tunes and noises used in the matching 
game by changing the DATA statements. In fact, the READ..DATA 
command in BASIC can be used to modify many programs without 
having to copy them from scratch. 


10 REM A NOISY CONCENTRATION 33 
100 80=54272:СК=49152: СҮ=СК+10: CX2CY*1:D 
IMJ (162,0 (16),X (15) , Y (15) :PL=1: 60518900 
110 POKES3280, 0: POKE53281,0:PRINTCHR$ (14 
7) š СНА$ (5) : GOTOA00 

150 POKESO+5, 0: РОКЕЗО+Ь, 240: POKESO-*1, o: P 
OKESO+4, 33: POKES2+1, O: POKES2+5, O 

160 POKES2+6, 240: POKES2+4, 17 

200 ONR+1GO0SUB220, 230, 240, 250, 240, 270, 28 
0,290 

210 POKESO+4, o: POKES2+4, O: RETURN 

220 FORU=OTOZ55STEPS: POKESO+1, U: POKES2+1 
‚255-0: NEXT 

225 RETURN 

230 FORU=1T010: Q=INT (RND (1) #150) : POKESO+ 
1, +25: POKES2+1, 175-@: FORV=1T040: NEXT 
235 NEXT: RETURN 

240 FORU-7STO10STEP-5:POKESO-*1,U: POKES2+ 
1, 100-U: FORV=1 TOU: NEXT: NEXT 

245 RETURN 

250 POKES2+4, 33: POKESO+1, S: POKES2+1,5:FO 
RU=OTO255STEP2 

255 POKESO, Ц: POKES2, 255-0: NEXT: RETURN 
260 FORU=10TOSOSTEP 10: FORV=UTO7SSTEPS: РО 
KESO+1, У: POKES2+1, U: NEXT: NEXT 

265 RETURN 
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270 FORU=200T0240: POKESO- 1, U: POKES2+1,U- 
1: NEXT: FORU-240TO100STEP-4 

279 POKESO+1, U: POKES2+1,U+10: NEXT: RETURN 
280 FORU=0T012: FORV=20+UT025+U: POKESO- 1 , 
V: POKES2+1, V: NEXT: NEXT 

285 RETURN 

290 FORU=0TO240STEP16: POKES2+1,U: POKESO+ 
1, U+3: FORV=1 TOO: NEXT: NEXT 

$05 RETURN 

400 FORT OTOSS: READK: AS=AS+CHRS (К) : NEXT: 
AIS=LEF TS (AS, ): AZS=MIDS (AS, 10,9) 

410 ASS=MIDS (АФ, 19,9) :1_ =0: FORY=OTOS: FORX 
zOTOS:X(L)216*X*2:Y (L.)=7+Y*2:L=L+1: NEXT 
420 NEXT: Х=6: Y22: GOSUBBOO: PRINT“ NOIS 
Y CONCENTRATION жин" X=15: Ү=6 

430 GOSUBS00: PRINTA1%: FORT=1 TOS: PRINTTAB 
(15); 42$: РКІМТТАВ (15) $; АЗФ: NEXT 

440 PRINTTAB(15) 5 А2$:РАТМТТАВ (15) RIGHTS 
(AS, 9) SFORT=OTOIS: Х=Х (T) š Ү=Ү (T) 2 GOSUBBOO 
450 PRINTCHR$ (T+65) : МЕХТ:ҒОКТ-ОТ015:А(Т) 
ш--1:МЕХТ:ҒОКТ-ОТ07:ҒОКӘ-ОТО1 

460 К=ІМТ (КМШ (1) +16) : ІРА (К) >-1ТНЕМ460 
470 А(К)=Т: МЕХТ: NEXT: . Х-4:Ү-12:6 
0508800: PRINT" 

480 PL=1-PL: SUSPECTUS X724: У=12: GOSUB800: P 
RINT" 

490 IFPL=OTHENGOSUBSOO: PRINT"PLAYER 1" 


500 X=27:GOSUB800: PRINT" "; IFPL=1 
THENGOSUB80O: PRINT"PLAYER 2" 

310 FORC-OTO1 

320 БЕТАФ:ІҒАФ<"А"ОКАФ>"Р"ТНЕМ520 

530 A=ASC (AS) -S: IFC=1 THENIFA=K (0) ТНЕМ52 
O 

340 IFJ (A) =1THENSZO 

550 XzX(A):YzY (А) : GOSUBBOO: PRINT"#": R=A ( 
А) : 60548В150:К (С) =A: К (С) R: NEXT 

560 IFR (O) R (1) THEN600 

570 ҒОКС-ОТ01: Х=Х (К (С) ) : Y=Y (К (С) ) š GOSUBB 
OO: PRINTCHR$ (65+К (C) ) š NEXT: GOTO480 

600 FORCZOTO1: Х=Х (К (С) ) š У=У (K (C) ) ; GOSUBS 
ОО: PRINTCHR$ (18) 3" ":Ј (КСС) ) =1: NEXT 

610 PRINT: S (PL) =8 (PL) +10: 60508790: ММ=ММ+ 
1: ТЕММ< 8THENPL=1-PL: 5070480 

620 X=2: Y=17: GOSUBS00: IFS (0) =5 (1) ТНЕМРАТ 
NT"TIE бАМЕ!": 65070650 

630 T=1: IF S(1)>S(0) THEN T=2 

640 PRINT"YOU DID IT PLAYER"; T 

650 X=12: Ү=21: GOSUBS00: PRINT"PRESS ANY К 
EY..." 

660 GETAS: ІҒАФ-""ТНЕМФФО 

670 RUN 

789 65070789 


/ БЕ КЕ РАР А eO" eC Ue РАР 3 e IFFT ID 2 


ссессссссссссвссссоссссссссссссссссссссссс 


790 


Х=4: Ү=8: GOSUBBOO: PRINT"SCORE: "; 5 (О) : 


Х=27: GOSUBS00: PRINT" SCORE: "; 5 (1) : RETURN 


воо 
900 


РОКЕСХ, X: РОКЕСУ ‚ Y: SYSCR: RETURN 
ЕОКВҮТЕ-СКТОСК--9: READA: РОКЕВҮТЕ, А: NE 


ХТ: РОКЕБО+24 , 15: POKESO+5, О: РОКЕЅО+6, 240 
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822427 : POKES2+5, 0: POKES2+6, 240: RET 
DATA24, 174, 10, 192, 172, 11, 192, 76, 240, 
DATA176, 99, 178, 99, 178, 99, 178,99, 174 
DATA9B, 32, 98, 32, 98, 32, 98, 32,98 


DATA171, 99, 123, 99, 123, 99, 125,99, 179 
РАТА173, 99, 177, 99, 177, 99, 177,99, 189 
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A... utility is a program that can be used in many 


different contexts. А good example of a utility is a word processing 
program. Such program can be used to write business or personal 
letters, take notes, or write а poem, novel, or science fiction book. It 
can also be used to lay out a newsletter or advertising brochure. You 
determine the use given the constraints of the program. Without your 
use, however, it does nothing. This is quite different than, say, a 
preprogrammed game that nuns one way and can only be used as the 
programmer intended. 

In this section we'll provide you with a number of simple utili- 
ties. For example, one may be the world’s cheapest and shortest word 
processor. Others will allow you to tailor graphs for yourself, to set up 
a ballot and ballot counter, and turn your computer into a calculator. 
Some of the utilities will have wide applications and others will be 
more specialized. Once you begin to feel comfortable as a programmer 
you should think of creating a library of your own utilities and sub- 
routines that is stored on disk. That way, you will be able to add them 
to other programs you build or use them without having to go 
through the tedious process of typing them in. It's a good idea to 
number your subroutines and utilities beginning somewhere around 
2000. That way, you can add them onto other programs just by load- 
ing them on top of programs that have lower numbers. 
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Scratch Pad: А Mini-Word Processor 


This program provides a quick and easy 40-column word processor. 
When you run this program, you'll see nothing but a blank screen and 
the cursor. That's how it should be. There are no frills here, just a 
blank page for you to write on. Type anything you want. Use upper 
and lower case letters. All of the normal editing functions of the Com- 
modore are available to you, including clear screen, insert space, delete 
space, and backspace. When you near the end of a line, press 
RETURN just as you would on a typewriter. After you are done and 
want to print out what you have written, turn on your printer and 
press the F4 key. Whatever is on the screen will print out. To stop 
the printing before it's finished, press F^ again. 

Here's a little shape poem created with the sketch pad and 
printed out on an EPSON MX-80 printer: 


оу QV 
LOVE LOVE 
LOVELOV | LOVELOVE 
LOVELOVELOVELOVELOVEL 
LOVELOVELOVELOVELOVELOV 
LOVELOVELOVELOVELOVEL 
LOVELOVELOVELOVELOV 
LOVELOVELOVELOVEL 
LOVELOVELOVELOV 
LOVELOVELOVEL 
LOVELOVELOV 
LOVELOVEL 
LOVELOV 
LOVEL 
LOV 
L. 


10 REM +++ SCRATCHPAD 33 

100 PRINTCHRS (147) ; CHR$ (5) š СНА$ (14) $ : GOT 
0180 

110 POKE199, 0: POKE212, O: POKE214, O: GETAS: 
IFA$z""THEN110 

120 IFAS=CHRS (148) ТНЕМОҮ-Ү: OXzX: GOSUB210 
130 PRINTA$;:0XzX:0YzsY: Х=РЕЕК (211) *40* CP 
ЕЕК (211) 539) š IFAS=CHRS (1:33) THENSOO 

140 IFAS=CHRS (15) GCRAS=CHRS (17) OR (OX=39AN 
DX=0) THENYzY-41 
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150 IFAS=CHR$ (147) ОКАФ=СНКФ (19) ТНЕМУ=О 
160 IF (OX=OANDX=39) ORA$-CHRS (145) THENY=Y 
-1 

165 IF (OX=OANDX=39) THENIFAS=CHR$ (157) ОВА 
$-CHR$ (20) THENPRINTA$; : X=38 

170 IFX=39THENPRINTCHRS (13) $ : Ү=ү+1: Х=0 
180 ІҒҮ<ОТНЕМҮ=0 

190 IFY>24THENY=24: 0Y-0Y-1 

200 GOSUB210:GOSUB220: GOTO110 

210 AD=1024+0Y#40+0X: POKEAD, PEEK (AD) AND1 
27: RETURN 

220 AD=1024+Y*40+X: POKEAD, PEEK (AD) OR128: 
POKEAD+54272, 1: RETURN 

SOO OPEN4, 4 

510 FORA=0T024: FORB=0TO39: C=PEEK (A*40+B+ 
1024) 

520 IFC<32THENC=C+96 

530 PRINT#4, CHRS (С) ;: NEXT: PRINT#4, CHRS (1 
3) 

540 ВЕТА$: IFA$=CHR$ (133) THENCLOSE4: GOTO1 
10 

550 NEXT:PRINT#4: CLOSE4: GOTO110 


30 


Graph Generator 


This short program will produce a bar graph with up to 20 different 
bars. You can enter as many as 20 different labels and values. You can 
use up to seven-place numbers. The program will automatically scale 
the values you place in it so that what you will see is a graph of the 
relative sizes of the values of your labels. The values will also be 
printed out next to the labels as in this graph of the LOVE/HATE 
continuum: 


90 


guy. ооо о 


ссссссссссвсвссссвссссссссвовссоесвесссбссссссссс 


LOVE/HATE 


N 


НАСЕ 
Ama 
MOAN Th 


DHOnOZHO 
N 


Aare AC 
mrema mm 


L 
L. 
E 
s 
R 
+ 
D 
H 


In each graph, the largest number will fill up the entire space 
allotted to the graph. Here is the program, followed by some sugges- 
tions of the kinds of graphs you might want to experiment with: 


10 REM +++ BARGRAPH 33 

100 CR=49152: CY=CR+10: CX=CY+1: GOSUBSOO: D 
INV (20) ,L#(19) :РОКЕЗЗ 280, O: POKES3281,0 
110 N2-1:DIMB$ (3, 1) :FORTZOTOS: FORUZOTD1: 
READK: BS (T, U) =CHRS (К) : NEXT: NEXT 

120 PRINTCHR$ (147) 3; CHRS (5) ;" B 
AR GRAPH GENERATOR": PRINT 

130 INPUT"GRAPH TITLE"; T$: PRINTCHRS (147) 
і" BAR GRAPH GENERATOR": PRINT 
140 FORTzOTO19:A$z"":PRINTT*1; TAB (24) š "V 
ӨКПЕ"; CHR$ (145) : РАТМТТАВ (4); 

150 INGBUTWLABEI. $; L$ (Т) = РАТМТСНЕ$ (145); ТА 
В (24); : INPUT "VALUE" ; A$ 

160 1ЕА%=""ТНЕММ=Т-1:Т=20 

170 V) Val. (As r „: IFV (T) >УТНЕМУ=У (T) 
180 NEXT: IFN S- 1 THENN=19 

190 PRINTCHRS (147); TAB (20-LEN (TS) 720 T$: P 
RINT: V=100/V: FORT O TON 

200 xXx SO: Y=T+2: 60848400: PRINTLEFT$ (LS (Т), 
6) : X26: GOSUB400: PRINTV CT) 2 X214: 60548400 
210 K=INT (МСТ) #V) : НУЕТМТ (K/4) : PRINTCHRS ( 
18); = IFHV»OTHENFORJ-1TOHV: PRINT" ";:NEXT 
220 PRINTB$ (K-HV3*4, O) 5 BS (K-HV#4, i): NEXT 
230 X=15: Y=23: GOSUB400:PRINT"PRESS <Fi>" 
240 ВЕТА$: IFAS< >CHRS (133) ТНЕМ240 

250 RUN 

400 POKECX, Х:РОКЕСҮ, Y: SYSCR: RETURN 
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500 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 
ХТ: RETURN 
510 рАТА24, 174, 10, 192, 172,11,192,76, 240, 
255 
520 ОАТА146,0,146, 180, 144, 161,0, 234 
700 FORM=OTOP: GOSUBBSO: РАТМТА$ (M) : FORT-O 
TOC (M) 
710 X22: Y=10+T#2: BOSUBBOO: PRINTBS (M, T) š " 
ween ee "МСМ, T) NEXT 
720 X=14: Y=22: 60508800: PRINT"PRESS RETUR 
М" 
730 ВЕТК$: IFK$« »CHR$ (13) THEN730 
740 NEXT: GOTO200 
800 POKECX, X: POKECY , У: SYSCR: RETURN 
850 PRINTCHR$(147);" ":PRINT:PRINT" 

THE OFFICIAL BALLOT BOX":PRINT:PRINT: 
PRINT: RETURN 
900 FORBYTE=CRTOCR+9: READA: POKEBYTE, A: NE 
XT: RETURN 
910 Dara, 174, 10, 192, 172, 11,192, 76, 240, 
255 


Some graphing ideas: 


® Graph school grades. 

e Graph your monthly expenses and see the relative proportions of 
your income that you spend on food, rent, entertainment, etc. 

e Graph income distribution, age distribution, voting patterns, and 
other demographics of your community. 

® Graph the won-lost percentages of your favorite teams and see 
which teams have done the best over a period of time. 

ө Do a personal preference test or a survey of people's favorite 
records or movies and see the relative positions of the first 20 
printed out in graph form. 
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The Ballot Box 


This is a voting utility. It allows you to set up anywhere from 1 to 5 
different offices or positions to vote for. In each position, you can 
have up to five candidates. After the ballot is set up you can use your 
computer as a voting machine or you can tally individual ballots with 
it yourself. You can save your ballot on disk, load it any time you 
want and have tallys of the results of the voting listed out for you as 
in this screen dump for the election of a HIGH MUCK MUCK: 


THE OFFICIAL BALLOT BOX 


HIGH MUCK MUCK 


CRAZY CAT 
FELIKS 


This utility can be used for school or club elections, popularity 
polls, voter preference surveys, etc... . anything that requires a vote 
can be recorded and tallied using it. 
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10 REM +++ THE BALLOT BOX se 

100 СК=49152: СҮ=СК+10: СХ=СҮ+1 : GOSUB900 
110 POKES3280, o: POKE53281, o: РКІМТСНКФ (14 
7) 3CHRS (5) : CLOSES 

120 DIM V(4,4),B$(4,4) 

200 GOSUBSSO:PRINT"1. SET UP THE BALLOT" 
:PRINT:PRINT"2. SAVE BALLOT TO DISK" 

210 PRINT:PRINT"S. LOAD BALLOT TO DISK": 
PRINT:PRINT"4. VOTE" 

220 GETK$:IFK$-""THEN220 

250 K-ASC(K$)-48: IFKX 10RK »4THEN220 

240 ONKGOTO300, 500, 550, 600 

ЗОО GOSUBSSO:PRINT"HOW MANY OFFICES? (1- 


310 GETK$:IFK$z""THEN3S10 

320 K=ASC (K$) -49: IFK<OORK>4THENS10 

550 P=K:FORM=OTOP: 60818850: РКІМТ "ЕМТЕК М 
АМЕ OF OFFICE #"; M+1:PRINT: INPUTTS 

540 ІЕТФ=" "ТНЕММ=М-1 : МЕХТ 

350 АФ (М) =Т$: 60518850: PRINTT$: PRINT: PRIN 
T"HOW MANY CANDIDATES? (1-5)" 

360 GETK$:IFK$z""THEN360 

570 C=ASC (КФ) -49: IFC<OORC>4THENS6O 

380 C(M)=C:FORT=OTOC: Х=2: Y=10+T#2: GOSUBS 
ОО: PRINTES: GOSUBBOO 

390 PRINT"CANDIDATE #"3T+13" "S: INPUTTS: 
IFT$=""THENT=T-1:NEXTT 

400 BS (М, T) =Т$: NEXT: NEXT: GOTO200 

500 OPENS, 8, 5, "8O: CDATA, S,W":PRINT#S, P: F 
ORT=OTOP: PRINT#S, С (Т) : NEXT 

510 FORM=OTOP: PRINT#S, АФ (М) : FORT=OTOC (M) 
* PRINT45, BS (М, T) : NEXT: NEXT 

520 CLOSES: GOTO200 

550 OPENS, 8,5, "О: CDATA, S, READ": INPUT#S, P 
: РОКТ=ОТОР: INPUTSS, С (T) : NEXT 

560 FORM=OTOP: INPUT#5, АФ (M) : FORTZOTOC (M) 
: INPUT#S, BS (M, T) š NEXT: NEXT 

570 CLOSES:GO0TO200 

600 FORT=0T04: FORJ=0TO4: У (Т, J) =0: NEXT: NE 
XT 

610 GOSUBSSO:PRINT"PRESS SPACEBAR TO CAS 
T YOUR BALLOT":PRINT 

620 PRINT"PRESS RETURN TO END VOTING" 
630 БЕТКФ: IFK$=CHR$ (13) THEN700 

640 ІЕКФ<>" "ТНЕМЬЗО 

650 FORM=OTOP: 60318850: PRINTAS (М) : FORT=O 
ТОС (M) : Х=2: У=10+Т*2: GOSUBBOO 

660 РВІМТТ+1;СНКФ (157);". ";В$ (М, Т) :NEXT 
670 ВЕТК$: IFK$=""THEN670 

480 V=ASC (КФ) –49: IFV<OORV>C (M) THEN670 
690 V(M,V)=V(M, V) +1: NEXT: 60Т0610 
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Address Card File 


The Address Card File can be used to store filing cards with any six 
different pieces of information. The form we are providing asks a 
person's name, address, city/state, home phone, and work phone; it 
also provides an extra line for remarks as in this entry: 


инининиияниниии es 
112111 
11 1212221 


ur zobna 
МҸ 
COOK ene 


1 
2 
= 
4 
s 
e 
7 
в 


As you can see, the bottom of the screen shows you the options 
available to you with the program. You can flip forward and backward 
to see other cards, begin at any letter (the program automatically 
alphabetizes your entries), add a new entry, change an old entry, and 
save and retrieve your cards on disk. Here is the program: 


90 КЕМ +##+# ADDRESS CARD FILE #*#** 

100 СК=49152: CY=CR+10: CX=CY+1: GOSUB900 
110 POKESS280, O: POKES3281, О: РАТМТСНЕ$ (14 
7) 5 CHRS (5) 

120 DIMN$(150,5) :А2=-1 

130 C=0:P=C:PRINTCHRS(147)5" “SPRINT: PRI 
NT" +++ ADDRESS CARD FILE жин" 

135 PRINT: PRINT: PRINT 
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140 FORT=1T06: PRINTCHR$ (18) ; МФ (T) :NEXT:F 
ORT=1T08: X210: Y=14+T: GOSUBBOO 

150 PRINTT;CHR$(157)53". ";Е$ (Т) : NEXT: 608 
UB850 

200 GETK$: IFK$<>""THENK=ASC (КФ) -48: ІЕК< 1 
ОКК>ВТНЕМ2ОО 

201 ІЕКФ=" "ТНЕМ200 

210 ONKGOTO350, 300, 400, 450, 500, 850, 600, 6 


$00 Р=Р-1: IFP<OTHENP=AZ: 1ЕР=-1ТНЕМР=0 
$10 605068850: GOTO2OO 

550 Р=Р+1: ТЕР >А2ТНЕМРЕО 

360 608506850: GOTO200 

400 X22: Y24: BOSUBBOO: PRINT"WHICH LETTER? 


405 GETKS: IFK$=""THEN405 
410 K=ASC (КФ) : ТЕК< 6 ЗОРК>9ОТНЕМАО5 
415 IFAZ<OTHEN440 
420 FORJ2AZTOCSTEP-1: IFN$ (J, 0) >KSTHENI=J 
422 NEXTJ: IFI>=OTHENJ=I : 6010450 
425 5070440 
450 Р=Ј: GOSUBSSO 
440 X=2: Y=4: BOSUB800: PRINT" 
18070200 
450 Ј=0: GOSUBS10 
455 FORV=0TOS: X=12: Y=6+V: GOSUBSO0O0: INPUTT 
$: IFV>OTHEN470 
458 ІҒТ%<М%(0,0) THENJ=0: 5070465 
460 FORJ=CTOAZ: ТРТ$ >№$ (J, О) THENNEXT: AZ=A 
2+1: J Z: 6070470 
465 AZ=AZ+1: FORW=AZTOJ+1STEP—-1 : FORWW=0TO 
5: N$ (W, WW) =NS (W—1, WW) : МЕХТИИ : NEX TW 
470 N$(J,V)zT$:T$-" "INEXTV:PzJ:8G0SUBB8SO 
a GOTO200 
500 IFAZ<OTHENGOTO20C 
510 FORJSPTOAZ:FORTZOTOS:N$(J,T)zN$(G-*1, 
T) : МЕХТ: NEXT 
520 AZ=AZ—1:P=AZ: IFAZ>—-1 THENGOSUBSS0: GOT 
0200 
550 605068810: GOTO2OO 
550 ІҒА2--1ТНЕМ200 
560 FORJZPTOAZ:FORT-OTOS:N$(CJ,T)zN$(GJ*1, 
T) : МЕХТ: NEXT 
570 А7=А2-1:Р=А7: 6010455 
600 X=3: Y=4: 60518800: PRINT"REPLACE FILE 
IN MEMORY? Y/N" 
610 GETKS: IFK SSV THEN6S0 
620 IFKS<>"N" THEN610 
625 X=3: Ү=4: GOSUBS00: PRINT" 
": CLOSES: GOTO200 
630 CLOSES: OPENS, 8, S, "О: ADDFILE,S,R": INP 
Urs, AZ: FORJZOTOAZ: FORTZOTOS 
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640 INPUT#S, № (J, Т) : NEXT: NEXT: РЕО: GOSUBS 

50: 8070625 

650 Х=5: Ү=4: 60508800: PRINT "REPLACE FILE 

ON DISK? Y/N" 

660 GETKS: IFK%="Y" THEN690 

670 IFKS<>"N"THEN660 

680 Б0Т0625 

690 CLOSES: OPENS, 8,5, "@O:ADDFILE,S,W":PR 
INTAS, AZ: FR OA Z: FORT=0TOS 

700 PRI NTS, Ns (J, Т) NEXT: NEXT: P=0: GOSUBS 
50: 6010625 

ВОО РОКЕСХ, x: РОКЕСУ, Y: SYSCR: RETURN 

810 РОРТ=ОТОБ: X212: Y=6+T: 60818800: PRINT" 

"“МЕХТ 

820 RETURN 

850 GOSUBS10: FORT=0TOS: X=13: У=6+Т: GOSUBS 
OO:PRINT" "3N%S(P,T) : МЕХТ: RETURN 

900 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 
ХТ: ЕОКТ=1707 : READMS (T) : NEXT 

905 FORTzi1TOB:READF$(T):NEXT: RETURN 

910 DATA24, 174,10,192,172,11,192,76,240, 
255 

920 DATA NAME „ADDRESS ,CITY/STAT 

E, HOME PHONE, WORK PHONE, REMARKS „IX 
930 DATA FLIP FORWARD; FLIP BACKWARD, FLIP 
TO LETTER, ADD A NEW CARD 

940 DATA DELETE CURRENT CARD, MODIFY CURR 

ENT CARD 

950 DATA LOAD FILE FROM DISK, SAVE FILE T 

O DISK 


Although the program is set up for addresses, it can easily be 
changed so that you can put recipes on it or organize a collection. For 
example, if you collect baseball cards, you can set up the program so 
that it stores: 


PLAYERS NAME: 
TEAM: 

POSITION: 

BATTING AVERAGE: 
FIELDING PERCENT: 
COMMENTS: 


To do this, you have to change the data line 920. If you also want to 
organize your baseball cards alphabetically by team, put the TEAM 
category first and all of the players on the same team will be grouped 
together. 


97 


55 


A Calculator Utility 


For all of the sophistication of home computers, it can become frus- 
trating when you can't use them as simple calculators. In the future, 
calculator functions will probably be built into the machines. How- 
ever, if you don't feel like waiting, here is a simple program you can 
copy and save to disk that will allow you to use your computer as a 
calculator whenever you care to. You can also add this program to 
other programs and build in a small calculator to games or other 
programs where fast calculation is useful. 

To use this program, you enter values and operators (+-*/=] as 
you would with any calculator. Press "C" for a complete clear. Press 
ESC to clear only the current entry. Press “5” to change the sign value 
of the value currently in the window. 


10 REM K THE CALCULATOR +++ 

100 CR=49152: CY=CR+10: СХ=СҮ+1 : GOSUBI00 
110 РОКЕ55280, O: POKES3281, О: PRINTCHR$ (14 
7) s CHR$ (5) 

120 X=13: Y=6: GOSUB800: PRINT" THE CALCULAT 
OR": Х=10: Y=8: GOSUB800: PRINTCHRS (176) $ 
130 FORTz1TO18:PRINTCHR$ (99) ; : NEXT: PRINT 
CHR$ (174) : Ү=9: 60848800: PRINTCHRS (125) 3 
140 PRINTTAB (29) ; CHRS (125) : : Ү=10: Б050В800 
: PRINTCHR$ (173) ; :FORT21TO18 

150 PRINTCHR$ (99) ; š NEXT: PRINTCHRS (189) 
160 Т%="" 

170 0%= "0": БЕТКФ: ІРКФ=" "ТНЕМ№М170 

180 IFK$="+"THENP=1: X=34: Ү=9: GOSUBBOO: PR 


INTK$: GOTOSOO 

190 IFK$z"-"THENPz2: X234: Yz9: GOSUBBOO: PR 
INTK$:GOTOSOO0 

200 IFK$z"«"THENP-3:X234:Yz9: GOSUBS00: PR 
INTK$:GOTOSOO 

210 ІҒКФ-"/"ТНЕМР-4: X=34: Ү=9: GOSUBBOO: PR 
INTK$:GOTOSOO 

220 IFKS="="THENGOSUB700: FF=1: AA=0: BOTO1 
60 


230 IFK$="C"THENGOSUB400: AA=0: КМ=0: М=0: Р 
O: XA: У=9: GOSUB800: PRINT" ":GOTO160 
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240 IFK$-CHR$ (95) THENGOSUB400: N=0: GOTO16 
0 

250 ТЕК$=". "ТНЕМЗОО 

260 IFK$-"S"ANDN« >ОТНЕММ=-М: T$zSTR$ (М) : G 
OSUB400: GOTO340 

270 IFKS<"O"ORKS>"9"THEN170 

500 IFLEN(T$)-16THEN170 

310 ТФ-ТФғКФ 

520 ТЕТ$< >“. "THENN=VAL (TS) 

330 IFFF=1THENGOSUB400: FF=0 


340 X=28-LEN (TS) : У=9: GOSUB8OO: PRINTT$: GO 


T0170 
400 X=12: Y=9: GOSUB800: PRINT" 
"s RETURN 
500 FF=1: ТРАА=ОТНЕМАА= 1 : KM N: КРЕР: 60Т016 
о 
510 IFKP< >PTHENT=P:P=KP: КР=Т: GOSUB700:P= 
КР: 60ТО1 60 
520 60518700: 60ТО160 
700 ONPGOTO710, 720, 730, 740 
710 N=N+KN:GOTO750 
720 N=KN-N:GOTO750 
730 N NN: GOTO750 
740 ТЕМ >OTHENN=KN/N 
750 T$=STR$ (N) : 60518400: X=28-LEN (T$) : Ү=9 
: 6058800: PRINTT$: KNzN: RETURN 
799 STOP 
ВОО POKECX, x: РОКЕСҮ, Y: SYSCR: RETURN 
900 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 
XT: RETURN 
910 DATA24, 174, 10, 192, 172, 11,192, 76, 240, 
255 
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Dungeon Dice 


This utility allows you to choose the number of dice you want to roll 
and the number of sides per die. You can choose up to 8 dice and up to 
20 sides per die. In addition, it calculates the percentage of the possi- 
ble maximum score that your roll produces. For people who have 
played Dungeons and Dragons, the convenience of this program will 


99 


probably be apparent. For anyone who wants to design a computer 
game with a complex element of choice built in, this can be a useful 
game subroutine. 

Here is an example of what the program can do. Suppose you 
choose to roll five 10-sided dice. The computer will print out the 
results on each die and then tell you the percentage of the maximum 
score that your roll achieved. (In this case the maximum is 5*10=50.) 
Here is a possible roll: 


DIE 1 2 3 4 5 
SCORE 5 7 3 9 1 
PERCENTAGE=(TOTAL/SO0)*100=25/50*100=50% 


10 REM +++ DICE 33 

100 СК-49152:СҮ-СК410: CX=CY+1: GOSUB900 
110 POKES32680, O: POKES3281 , O: PRINTCHRS (14 
7) 3 CHR$ (5) 

120 DIMD$(26):FORTz1TO26: READK: D$zD$-FCHR 
$ (К) 2NEXT 

150 РОКЕЗ4 296, 15: POKES4277, O: POKES4278, 2 
40 

200 605418500: X=2: У=6: 60318800: INPUT "HOW 
МАМУ DICE (1-8) ";N: IFN< 1ОРМ>ВТНЕМ200 
210 X=2: Y=8: 80SUB800: INPUT"HOW MANY SIDE 
S (4-20) "3S: IFS<40RS>20THEN210 

220 P=S#N: М=М-1: GOSUBSOO 

250 Xz8:Yz19:GOSUBB8OO:PRINT"PRESS SPACEB 
AR TO ROLL": X26: Yz21: GOSUBBOO 

240 PRINT"PRESS RETURN TO CHANGE DICE":Z 
2220— ((N 1) #2) 

300 GETKS$: IFK$=CHRS (13) ТНЕМ200 

$10 IFK$«»" "ТНЕМЗОО 

520 FORJ=OTOINT (РМО (1) #3) +2: CO: FORT=OTO 
М: Х=2+Т*4: Yz7: 60518800 

SSO R=INT (RND (1) жб) +1: RGS S8 TRS (R) : RSRIGH 
T$ (R$, ЕМ(КФ) -1) SPRINTD$5 КФ 

540 POKES4276, 55: POKES4273, T*10: C=C+R: FO 
RO=1T010: NEXT 

545 POKES4276, 0: NEXT: NEXT: POKES4276,0 
330 Х=19: Yz13:GO0SUB800:PRINT"TOTAL: "$C; 
CHR$ (157);" ":X212:Yz14: GOSUBBOO 

360 PRINT"POSSIBLE: “sPs"  "2Xz10?:Y515:G 
OSUBEOO 

570 PRINT"PERCENTAGE: "3; INT(C/P#100) ; CHR 
$(157)3;"% ":80Т0 300 

ЗОО PRINTCHRS (147) ;: Х=10: Y=2: GOSUBB8OO: PR 
INT"DUNGEON DICE ROLLER": RETURN 
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900 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 


800 POKECX, X: POKECY, Y: SYSCR: RETURN 
XT: RETURN 


192, 76, 240, 


‚10,192, 172,11, 


174 


910 DATA24, 


255 


145 


,157,157 
157,17 
157,157, 


157,157 
,157, 
157,157, 


35 
Circle and Elfipse 


157 
Drawing a circle in BASIC is difficult and time-consuming. Drawing 


3238 
‚157, 
Í| 195, 189 


195,195 
„32, 32,194 
195 


‚17, 


920 DATA 176, 
194 
930 DATA 173, 


an ellipse is almost impossible. Here is a program that draws two 
circles, one big and one small, as well as two ellipses that also differ in 


size. These programs use the trigonometric functions SINE and 


COSINE and make it possible to be much more accurate in drawing 


FVIAIIIIVPIFIVIIIIIIIIIIDID 


curves on a TV or monitor screen which cannot actually draw con- 
tinuous lines but depends on discrete points called pixels for its 
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images. A way to experiment with these programs is to separate them 


and change all of the parameters in each miniprogram separately. If 
you do animation or try to create interesting visual formats for your 


programs, you might find these subroutines very useful. 
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10 КЕМ ### CIRCLES & ELLIPSES ### 

100 CR=49152: CY=CR+10: CX=CY+1 : GOSUB900 
110 POKES3280, O: POKES3281, O: PRINTCHRS (14 
7) $CHR$ (5) 

120 REM ##* CIRCLE +++ 

130 PRINTCHR$ (147) $ CHR$ (18); 

190 A=A+. 28: X= INT(SIN(A)*5*20): Y=INT . 
COS (А) #4+12): GOSUB 800: TZINT (КМО (1) #8) 
160 PRINTCHRS(C(T))5" "š : ВЕТК$: IFK$z""TH 
EN150 

200 REM ### BIG CIRCLE +++ 

210 А=А+. 28: X=INT (SIN (А) #9+20) š Y=INT (COS 
(A) #8+12) : GOSUBBOO: T=INT (КМО (1) #8) 

220 PRINTCHR$ (C (T)); "$:GETK$:IFK$z"" TH 
ENZ210 

300 REM s ELLIPSE & 

305 PRINTCHR$ (147) ; CHRS (18); 

510 А=А+. 28: K INT (SIN (А) *6*20) : Y=INT (COS 
(А) #3+12) : GOSUBBOO: T=INT (RND (1) #8) 

$20 PRINTCHRS(C(T))5" “3 : БЕТК$: ТЕК$=" "TH 
ENS10 

400 КЕМ **#* BIG ELLIPSE +++ 

410 А=А+. 28: Х=ІМТ (SIN (A) #13+20) : Y=INT (CO 
S (А) *B*12) : GOSUBBOO: Т=ТМТ (RND (1) +В) 

420 PRINTCHRS(C(T))5" "3: СЕТКФ: IFK$=""TH 
EN410 

430 GOTO120 

800 РОКЕСХ, X: POKECY, Y: SYSCR: RETURN 

900 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 


905 FORT=0TO7: КЕАРС (T) : NEXT: RETURN 
910 DATA24,174,10,192,172,11,192,76,240, 


920 DATA 5,28,159,156,30,31,158, 129 
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The Simple Averager 


This program allows you to average numbers. As you enter a list of 
numbers, it gives you a running average and a count of how many 
numbers you have entered. It is convenient for averaging school 
grades, income, or in the climate we come from, daily rainfall. 
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10 КЕМ * * AVERAGER 33** 

100 PRINTCHR$ (147) : PRINT: PRINT" 

SIMPLE AVERAGER":PRINT:PRINT 

110 PRINT"ENTER VALUES - PRESS RETURN TO 
CLEAR": PRINT:PRINT:PRINT"AVERAGE: "3 

120 IFC>OTHENPRINTINT (T/C** 100) /100% 

150 PRINTTAB (24) $ "VALUES: " С: PRINT: PRINT 
: FRINT:A$-2""IINPUTAS$:IFA$z""THENRUN 

160 N=VAL (A$) : Т=Т+М: С=С+1:60Т0100 
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The Egg Timer 


Its not very likely that you have your computer in the kitchen or that 
youll use it to time your eggs. However, a timing program is a very 
convenient insert into other programs or to use to remind you to 
make a phone call or wake up from a nap. Actually, there are even a few 
kitchen computer freaks who do use their computers to time their 
eggs. 

In this program you enter the number of minutes or seconds 
you want to be timed. The computer will display and count down the 
time, emitting a sound (hopefully pleasant] when it reaches O. If you 
want, you can change that sound to a Bach fugue or a Mozart sonata. 
Just set up a subroutine at line 300 and set to work programming the 
music of your choice. 


10 ВЕМ xs EGG TIMER жж 

100 S0=54272: CR=49152: СҮ=СК+10: СХ=СҮ+1: 5 
OSUB900: GOSUB400: Y=14: Y=6: GOSUBSOO 

110 POKES3280, O: POKES3281, О: РАТМТСНА$ (5) 
: РОКЕЗО+24, 15 

120 PRINT"SET TIMER...":X22:Y-10: GOSUBSO 
О: INPUT"MINUTES" ; М: Y=12 

130 60518800: INPUT"SECONDS"; S: IFS<OORS>S 
9THEN130 

140 60518400: X=19-LEN (STR$ (М) ) : У=7: GOSUB 
800: PRINTM; CHR$ (157) 5 ": "j 

150 IFS<10THENPRINT"O"; 

160 PRINTRIGHT$ (STR$ (8) ,LEN(STR$(S)) -1): 
X215: Ү=10: 60518800: PRINT PRESS <F1 >" 

170 GETAS: IFA$« »CHR$ (133) THEN170 

180 POKE162, o: GOSUBS00: PRINT" " 
190 X-19-LEN(STR$ (М) ) : Yz7: GOSUB800: PRINT 
М; CHRS (157) $ ": "s :IFSC10THENPRINT"O"; 

200 PRINTRIGHT$ (STR$ (S), LEN(STR$ (8) ) -1) 
210 IFPEEK (162) <40THEN210 

220 POKE162, 0: S=S-1: IFS<OTHENS=59: М=М-1: 
IFM<OTHENX=14: Y=10: GOTO300 

230 GO0TO190 

300 POKESO+4, 33: FORT=0TO255STEPS: POKESO+ 
1, T: МЕХТ: POKESO+4, О: GOSUBS00: 0=1—Q 

310 POKESS280, (1-6) #11: IFQ-OTHENGOSUBS8OO 
: PRINT" 

520 IFQ=1THENGOSUBS00:PRINT"PRESS ANY KE 
yu 

330 БЕТАФ: IFAS=""THEN300 

340 RUN 

400 PRINTCHR$ (147) ; CHR$ (5) : Х=9: Y=3: GOSUB 
800:PRINT'"44« THE EGG TIMER 33": RETURN 
799 STOP 

800 POKECX, X: POKECY, Y: SYSCR: RETURN 

900 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 
XT: POKESO+5, 0: POKESO+6, 240: RETURN 

910 DATA24,174,10,192,172,11,192,76,240, 
255 
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The Wise Shopper 


This program converts the price of a product to its price per ounce or 
per gram which is useful for comparison shopping. Sometimes, big 
boxes contain a lot of empty space and buying by unit weight can 
save you money. To use the program, enter the product's total price 
and then choose ounces or grams before you enter the product 
weight. 


10 REM K THE WISE SHOPPER *** 

100 CR=49152: CY=CR+i0: CX=CY+1: GOSUB900 

110 POKE53280, O: POKES3281, О: PRINTCHRS (14 

7) 3 CHRS (5) 

120 PRINTCHRS (147) 5: PRINT: PRINT“ ж 

++ THE WISE SHOPPER жин" 

130 PRINT: PRINT: PRINT: INPUT" TOTAL PRODU 

CT PRICE: "ІР 

140 60506850: PRINT: PRINT: PRINT"WEIGHT ІМ 
(1) OUNCES OR (2) GRAMS." 

150 GETK$: ІЕКФ< >" 1 "АМКФ< >"2" THEN150 

160 K=VAL (КФ) :W$="QUNCES": ІЕК=2ТНЕМИФ= "б 

RAMS" 

170 PRINT: PRINT ENTER THE WEIGHT IN "ИФ 

зе INPUTW 

180 IFK=1 THENG=INT (28. 35*W#100) /100 

190 IFK=2THENG=W: W=INT (6/28. 35*100) /100 

200 PRINT: PRINT"OUNCES. SZ.... .. "SW: РК 

INT"PRICE PER OUNCE..."3 INT (P/W#10000) 71 

ОО; "CENTS. " 

210 PRINT: PRINT GRAS. "8G: РК 

INT"PRICE PER GRAM...."; 

220 T=INT (P/G*10000) /100: IFTZOTHENPRINT" 

— | | 

230 IFTX»OTHENPRINTT; "CENTS. " 

240 PRINT: PRINT: PRINT" PRESS A 

NY KEY" 

250 GETK$:IFK$z""THEN2SO 

260 RUN 

ВОО РОКЕСХ, X: POKECY , Y: SYSCR: RETURN 

850 PRINTCHRS (147) ; :РАТМТ:РАТМТ" + 

44 THE WISE SHOPPER жж" 

860 PRINT: PRINT: PRINT: PRINT" TOTAL PRODUC 

T PRICE: IP; RETURN 
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900 FORBYTE=CRTOCR+9: READA: РОКЕВУТЕ, А: NE 
XT: RETURN 
910 DATA24,174,10,192,172,11,192,75,240, 
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Metric Converts 


This is a simple conversion utility. It allows you to convert the fol- 
lowing pairs into each others units of measurement: centimeters/ 
inches; meters/yards; and kilometers/miles. 


10 REM +++ METRIC +++ 

100 РЕТМТСНЕ$ (147) SPRINT: РАТМТТАВ (11); H 

ETRIC CONVERSIONS" 

110 PRINT: PRINT: PRINT: PRINT“ 1. CENTIMETE 

R TO INCH":PRINT"2. METER TO YARD" 

120 PRINT“. KILOMETER TO MILE“: PRINT“A. 
INCH TO CENTIMETER" 

130 PRINT"S. YARD TO METER": РКІМТ "6. MIL 

E TO KILOMETER" 

140 GETAS: A=VAL (AS) š IFA< 1ORASSTHENI40 
150 PRINT: PRINT: ONAGOTO1640, 170, 180, 190, 2 

00,210 

160 INFPUT"CENTIMETERS"; A: A=Ax. 394: PRINT: 

PRINT" INCHES: "А: СОТОЗОО 

170 INPUT"METERS"s$ А: 420*1.094: PRINT: PRIN 

T" YARDS: "5A: GOTO300 

180 INPUT"KILOMETERS"5 А: AAN. 521: РКІМТ: Р 

КІМТ "МІ Е: "3A: GOTOSOO 

190 INPUT" INCHES" $ A: AAN. 558: PRINT: PRIN 

T"CENTIMETERS: "š А: GOTOSO0O 

200 INPUT"YARDS"5 А: A=A*. 914: PRINT: PRINT" 

METERS: "$4: GOTOSOO 

210 INPUT"MILES"5 A: A=A*1. 609: PRINT:PRINT 
"KILOMETERS: "s А 

300 PRINT: PRINT: PRINT: РКІМТТАРБ (8) "PRESS 

ANY KEY TO CONTINUE" 

310 GETAS: IFAS=""THENS10 

320 RUN 


Here are the lines where the conversion formulas are stored. You can 
change them if you want to provide other conversions such as pounds 
106 
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into ounces (using the formula OUNCE=POUND*16}, Fahrenheit 
into Centigrade, tons into pounds, yards into feet, etc. 


110 PRINT: PRINT: PRINT: РКІМТ"1. CENTIMETE 

R TO INCH":PRINT"2. METER TO YARD" 

120 PRINT'"S. KILOMETER TO MILE":PRINT"4. 
INCH TO CENTIMETER" 

130 PRINT"S. YARD TO METER: PRINT VE. MIL 

E TO KILOMETER" 

140 GETA$:A-VAL (AS) : IFA< 10RA»6THEN140 
150 PRINT:PRINT:ONAGOTO160, 170, 180, 190,2 

00,210 

160 INPUT"CENTIMETERS" A: HN. 594: PRINT: 

PRINT" INCHES: "А: GOTO300 

170 INPUT"METERS" ; А: A=A#1.094:PRINT:PRIN 

T" YARDS: „; А: 8070500 

180 INPUT"KILOMETERS" 5 А: А=А#. 621: PRINT: P 

RINT"MILES: "š A: GOTOSOO 

190 INPUT"INCHES"; A: A=A#2. 538: PRINT: PRIN 

T"CENTIMETERS: ; a: GOTOSOO 

200 INPUT"YARDS"; A: . 914: PRINT:PRINT" 

METERS: "$4: 60Т0500 

210 INPUT"MILES"; A: А=А#1 . 609: PRINT: PRINT 
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Decimal/Hex/Binary Conversion 


This program is very useful for people who work with computers. It 
converts numbers from the binary, decimal, and hexadecimal (base 16) 
number systems into equivalent form in the other systems. You can 
start with any of the three systems and get the equivalent in the other 
two systems. In case you are not familiar with some of these systems 
of numeration, here is a summary of how they work: 


Base 10: Symbols 0123456789 


The base 10 system is the one we all learn first. It has ten symbols and 
uses the powers of ten to change place value. Thus, counting in base 
10 goes as follows: 
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1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17 


Note that once all the symbols are used up you move over one place 
(from 9 to 10). The powers of ten that are given in the following chart 
determine the values of the symbols: 


100 102 10 100 
1000 100 10 1 


Thus, the number 1234 actually means: 
110 42410? 43410! 4410? 71234 


You might remember learning this in fifth or sixth grade though most 
people usually forget it quickly since they don't need to know it in 
order to calculate. However, when you move from one base system 
into another the question of place value is crucial. 


Base 2: Symbols 0 1 


There are only two symbols in base 2: 0 and 1, which is why it is so 
important for computer programming. Every computer is a complex 
and well-organized collection of ON and OFF switches that can be 
represented by ЦОМ) and O(OFF). The language your computer under- 
stands is base 2 machine language and everything you type in has to 
be translated into a base 2 system before the computer can process it. 
Base 2 functions structurally like base ten. It uses place values only 
they represent powers of 2 instead of powers of 10. Here are the values 
of the first four places in a base 2 number system: 


value 8 4 2 1 
Неге are the numbers from 1 to 10 in base 2. 


1, 10, 11, 100, 101, 110, 111, 1000, 1001, 1010 


То understand this, let's take a closer look at 10 which i is represented 
in base 2 as 1010 and translate it to base 10: 
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1010=1*23 +0*22 +1*21 +0*20 =8+0+2+0=10 


Base 2 is а natural language for programming computers. However, 
programming in this machine language is tedious and leads to many 
errors. For example, imagine trying to copy this machine language 
program without making an error or going to sleep: 


1011100010101010 
1100000100011001 
0110010101010101 
1000001001100010 
1111100100010101 


In order to facilitate programming on a level that is close to machine 
language and that runs more quickly than BASIC (which has to be 
translated into machine language internally before it can be RUN by 
the computer) an intermediate code using base 16 (called the hexade- 
cimal system) is often used. The reason for this is that four places in 
the binary system [i.e., 2 to the 4th power of 2*2*2*2) equal 16 and, so, 
one digit in the hexadecimal system can represent four in the binary 
system. Here is the hex symbolism. If you want to learn more about 
this you should consult an introductory book that has a chapter on 
assembly language programming. 


Base 16 Number System (Hexadecimal): 
Symbols 0123456789ABCDEF 


The letters A, B, C, D, E, F represent the base 10 numbers 10, 11, 12, 
13, 14 and 15. 

Counting from 1 to 10 in HEX looks like this: 1, 2, 3, 4, 5, 6, 7, 8, 
9, A. Here are the HEX place values: 


16 162 16 16 
values 4096 256 16 1 


Thus 100A in Hex would be: ` 
1*16? *0*16? +0*16' +10*16° =4096+0+0+10=5006 in base 10. 
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Enough of the details. Here is а conversion program which might 
come in handy if you do machine or assembly language programming: 


DECIMALCVHEX/EINARY CONVERSION 


DECIMAL: 245 
HEX: FSH 
BINARY: 111161616 


ENTER VALUE: 7 


10 КЕМ жж DECIMAL/HEX/BINARY N * 

100 CR=49152: CY=CR+10: CX=CY+1: GOSUBI00 
110 POKES3280, O: POKES3281 , O: PRINTCHRS (14 
7) 3 CHRS (5) 

120 DIMB (19) :HHS="0123456789ABCDEF" 

130 D$z'"O":H$-D$:B$-D$:GO0SUB840 

140 FORT=0TO4: READK: HCT) =К: В (Т*4) =К: FORJ 
=1 T03: READB (T#4+J) 

150 NEXT: NEXT: ES=" 

200 X=2: Yz14: 808UBBOO: PRINTES: X=2: Y=14: І 
NPUT"ENTER VALUE: "3 TS 

210 L=LEN(TS) : IFRIGHT$ (TS, 1) ="В"ТНЕМАОО 
220 IFRIGHT$ (T$, 1) Z"H"THENSOO 

230 D=VAL (T$) : 0$=Т$: IFD21048575THEN20OO 
300 R=1: IFD>25S5STHENR=3: IFD>65535THENR=4 
510 H$=""3K=D: FORT=RTOOSTEP-1: J=INT (КИН ( 
T)) SK=K-J#*H(T) 

320 H$=H$+MIDS (HH$, J+1, i): MXT 

350 К=7: ІЕр>255ТНЕМК=15: IFD>46S5535THENR=1 
9 


360 B$z"":K-zD:FORT-RTOOSTEP-1:J-INT (КИВ ( 
T) ):К=К-Ј#В (T) : JS=STRS (J) 

570 J$=RIGHTS (Jt, 1) :B$=B$+J$: NEXT: GOSUBS 
40: GOTO200 

400 р=0: С=0: FORT=L-i1TOISTEP—1: IFMIDS (TS, 
T, 1)="1" THEND=D+B (С) : GOTO420 

410 ІЕМІП6(7%,7,12<>"О"ТНЕМ200 

420 C=C+1:NEXT: D$=STRS(D) : 8070500 
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500 D=0:C=0: FORT=L-1T01STEP—1: A=ASC (MIDS 

(T$, T, 1)) : IFA>64ANDAC71 THENA=A-55: G=5 

510 IFA>47ANDA<S8THENA=A-48: G=5 

520 IFG<>STHEN200 

550 G=O:D=D+A#H(C) : С=С+1 : NEXT 

540 D$=STR$(D):GOTO 300 

800 POKECX, X: POKECY, Y: SYSCR: RETURN 

840 PRINTCHRS (147) $ :РАТМТ:РАТМТ" ### HEX 

/DECIMAL/BINARY CONVERSIONS жән" 

850 X=1:Y=5: GOSUBB00 

860 PRINT" DECIMAL: "$D$:PRINT:PRINT" 
HEX: ";Н%;"Н" 

870 PRINT:PRINT" BINARY: ";В$; "В": КЕТО 

RN 

900 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 

XT: RETURN 

910 DATA24,174,10,192,172,11,192,75,240, 

255 

920 DATA 1,2,4,8,16,32,64,128,256,512, 10 

24, 2048, 4096, 8192, 16384, 32768, 65536 

930 DATA 131072, 262144, 524288 


Finale 
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A Computer Dating Service 


And now, to end the book (almost) on an up note, here is a very liberal 
dating program. The program is set up to record the answers to 20 
questions after taking your name and phone number and assigning 
you a code number. When you have completed your profile, you can 
store the program on disk. One person a dating program does not 
make. Therefore, you have to gather data from a lot of people before it 
can begin to match their responses and come up with what, from its 
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point of view (really our point of view since a computer does not have 
convictions or sets up criteria for matching], is your ideal mate from 
the available pool. 


80 REM * COMPUTER DATING SERVICE + 
90 DIMNAS (99) , PAS (99) ,0 (99,19) , A1 (19) ‚А2 
(19) (19, 81% (20) , 025 (20) 

100 СК=49152: СҮ=СК+10: CX=CY+1: GOSUB900 
110 POKES3280, o: POKES3281, О: PRINTCHRS (14 
7) 3 СНА$ (5) :OPEN15,8, 15 

150 GOSUB810:PRINT:PRINT:PRINT"1. ADD А 
PERSON TO DATING POOL" 

140 PRINT:PRINT"2. SELECT PERSON TO DATI 
NG POOL":PRINT:PRINT"S. SAVE DATA BANK T 
о DISK" 

150 PRINT:PRINT"4. LOAD DATA BANK TO DIS 
K" 

160 ВЕТК$: IFK$=""THEN160 

170 K=ASC (КФ) 48: IFK< 10RK>4THEN160 

180 ONKGOTO300, 200, 500, 600 

200 60518810: INPUT"ENTER YOUR I. D. NUMBE 
R: "PN: IFNCOORN>=CTHEN130 

210 PRINT:PRINT"FINDING A DATE FOR: : PRI 
NTNA$ (N) š PRINTPAS (М) 
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220 DD=0: DT=0: FORT=0TOC-1: TT=0 

250 ІҒТ-МТНЕМ250 

235 FORJ=0TO19 

240 IFQ(N,A1 (J) ) (T, az (3) ) ТНЕМТТ=ТТ+А$ ( 


245 NEXT 

250 IFTT>DTTHENDT=TT: DD=T 

260 NEXT:PRINT:PRINT 

270 PRINT"YOUR IDEAL DATE IS:":PRINTNAS( 

DD) :PRINTPAS (DD) :PRINT:PRINT"..PRESS A К 

EY н 

280 GETK$:IFK$z""THEN280 

290 GOTO130 

500 80318810: INPUT"ENTER YOUR NAME "$;N$: 

NAS (C) zN$ 

310 GOSUBS10:INPUT"ENTER PHONE NUMBER "3 

№: РАФ (С) «МФ 

320 FORT=1T020: 6038810: PRINTQ1%(T) : PRIN 

1028 (T) 

330 BETK$:IFK$z""THEN33O 

340 K=ASC (КФ) —48: IFK< 10RK»STHEN33O 

350 @(С,Т-1)=К:МЕХТ 

360 PRINT:PRINTNA$(C):PRINT"YOUR 1.0. NU 

MBER IS "3C:FORT=1T02000: NEXT: C=C+1 

370 GOTO130 

500 OPENS, 8,5, Eo: DATEDATA, S,W":PRINT#S, 

C: FORT=0TOC-1: PRINT#S, NAS (T) 

510 PRINT45, РАФ (Т) sFORJ=0TO19: PRIN TAS, 0 ( 

Т, J) : МЕХТ: NEXT: CLOSES: GOTO130 

600 OPENS, 8,5, "О: DATEDATA,S,R": INPUT4S,C 

: FORTZOTOC-1: INPUT#S, NAS CT) 

810 INPUT45, РАФ CT) :FORJzOTO19: INPUT#5, Q ( 

T,J):NEXT: NEXT: CLOSES: GOTO130 

800 РОКЕСХ, X: POKECY, Y: SYSCR: RETURN 

810 PRINTCHR$(147)," ":PRINT:PRINT" 
COMPUTER DATING SERVICE": PRINT: PRINT: 

RETURN 

900 FORBYTE=CRTOCR+9: READA: POKEBYTE, А: NE 

XT 

920 FORT=1T020: READOS, ТФ: 01% (Т) s: 02% (Т 

) =Т$: NEXT: ҒОКТ=ОТО19 

930 КЕАРА1 (T), a2 (, as (Т) : NEXT: RETURN 

950 DATAZ4, 174, 10, 192, 172, 11, 192, 76, 240, 

255 

960 DATA ARE YOU (1)MALE (2)FEMALE (3)BO 

TH, 

965 DATA DO YOU WISH TO DATE А (1)MALE, ( 

2) FEMALE (3) BOTH 

970 DATA ARE YOU (1) YOUNG (2)MIDDLE-AGED 

‚ (3) OLD 

975 DATA IS YOUR IDEAL DATE (1) YOUNG, (2) 

MIDDLE-AGED (3) 01р 
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980 DATA HOW ATTRACTIVE ARE YOU (1) ЕХТКЕ 

MELY, (2)MODERATELY (3)NOT VERY 

985 DATAHOW ATTRACTIVE 18 YOUR IDEAL DAT 

Е, (1) EXTREMELY (2) MODERATELY (S) Nr VERY 
990 DATA WHERE WOULD YOU LIKE TO GO ON A 
FIRST, DATE (1)MOVIE (2)DANCING (3) MOTEL 
995 DATA ARE YOU AN (1) OUTDOOR PERSON, (2 
) INDOOR PERSON (3) BOTH 

1000 DATA HOW IMPORTANT IS SEX (1) VERY, ( 
2)FAIRLY (3)NOT VERY 

1010 DATA ARE YOU ARTISTIC (1)YES (2)ND, 
(3)SORT OF 

1015 DATA WOULD YOU LIKE YOUR DATE TO BE 
,ARTISTIC (1) ҮЕЅ (2)NO (3)SORT OF 

1020 DATA HOW DO YOU FEEL ABOUT KIDS, (1) 
LOVE THEM (2) НАТЕ THEM (X)BOTH  , 

1025 DATA DO YOU ENJOY ALCOHOL OR DRUGS, 
(1)YES (2)NO (3)SOMETIMES 

1030 DATA WHICH TYPE OF MUSIC DO YOU LIK 
Е MOST, (1)CLASSICAL (2)ROCK (3) COUNTRY 
1035 DATA HOW MUCH TELEVISION DO YOU WAT 
СН, (1A LOT (2)SOME (3) VERY LITTLE 

1040 DATA ARE YOU (1)WEALTHY (2)DOING OK 
‚ (3)GETTING BY 

1045 DATA IS YOUR IDEAL DATE (1)WEALTHY, 
(2)DOING OKAY (3)GETTING BY 

1050 DATA ARE YOUR HABITS (1)UNHEALTHY, ( 
2)HEALTHY (3)NO HABITS 

1055 DATA ARE YOU USUALLY (1)HAPPY (2)UN 
HAPPY, (3) BOTH 

1060 DATA IS YOUR IDEAL DATE USUALLY (1) 
HAPPY, (2) UNHAPPY (3) BOTH 

1065 DATA 1,0,50,0,1,50,3,2,25,2,3,25,5, 
4,25, 4,5, 25,6, E, 50, 7, 7, 30, 8, 8, 50, 10,9 
1070 DATA 25,9, 10, 25,11, 11, 25, 12, 12, 50, 1 
J, 13, 28, 14, 14, 25, 16, 15, 25, 15, 16, 25,17 
1075 DATA 17,25, 19, 18, 25, 18, 19, 25 


Notice that the questions are all listed in the following data 
statements: 


960 DATA ARE YOU (1)MALE (2)FEMALE (3) BO 
TH, 

965 DATA DO YOU WISH TO DATE A (1)MALE, ( 
2) FEMALE (3) BOTH 

970 DATA ARE YOU (1) YOUNG (2)MIDDLE-AGED 
‚ (3) OLD 

975 DATA IS YOUR IDEAL DATE (1) YOUNG, (2) 
MIDDLE-AGED (3) OLD 

980 DATA HOW ATTRACTIVE ARE YOU (1) EXTRE 
MELY, (2)MODERATELY (3)NOT VERY 
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985 DATAHOW ATTRACTIVE IS YOUR IDEAL DAT 
Е, (1)EXTREMELY (2)MODERATELY (S) Nr VERY 
990 DATA WHERE WOULD YOU LIKE TO GO ON A 
FIRST, DATE (1)MOVIE (2)DANCING (3) MOTEL 
995 DATA ARE YOU AN (1) OUTDOOR PERSON, (2 
) INDOOR PERSON (3) BOTH 

1000 DATA HOW IMPORTANT IS SEX (1) VERY, ( 

2)FAIRLY (3)NOT VERY 

1010 DATA ARE YOU ARTISTIC (1)YES (2) N, 
(3)SORT OF 

1015 DATA WOULD YOU LIKE YOUR DATE TO BE 
„ARTISTIC (1) YES (2)NO (3)SORT OF 

1020 DATA HOW DO YOU FEEL ABOUT KIDS, (1) 

LOVE THEM (2)HATE THEM (3) BOTH 

1025 DATA DO YOU ENJOY ALCOHOL OR DRUGS, 
(1) YES (2)NO (3) SOMETIMES 

1030 DATA WHICH TYPE OF MUSIC DO YOU LIK 

E MOST, (1)CLASSICAL (2)ROCK (3) COUNTRY 
1035 DATA HOW MUCH TELEVISION DO YOU WAT 

СН, (1)A LOT (2)SOME (3) VERY LITTLE 

1040 DATA ARE YOU (1)WEALTHY (2)DDING OK 
‚ (3)GETTING BY 

1045 DATA IS YOUR IDEAL DATE (1)WEALTHY, 
(2)DOING OKAY (3)GETTING BY 

1050 DATA ARE YOUR HABITS (1) UNHEALTHY, ( 

2)HEALTHY (3)NO HABITS 

1055 DATA ARE YOU USUALLY (1)HAPPY (2)UN 

HAPPY, (3) BOTH 

1060 DATA IS YOUR IDEAL DATE USUALLY (1) 

HAPPY, (2) UNHAPPY (3) BOTH 


The liberality of the program shows in the very first question. It 
allows for you to be male, female, or both. The second question allows 
you to date the sexual preferences of your choice. Of course, you 
might feel this program goes too far. All you have to do is list the data 
statements and change them to suit your own ways of looking at the 
problem of finding a best mate or date. Just be sure that each change 
you make goes on one data line. The weighting factors built into the 
program can also be changed if you have some programming expe- 
rience. You'll find them in lines 1065 to 1075. 
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1/2 of Many Things You Can 
Do With Your Computer 


You can use the programs as they are listed in this book. You can also 
consider them program forms that provide a framework for develop- 
ing new programs on your own. Here are a number of ideas that take 
off from the 41 programs we have worked out. They provide you 1/2 
of what you need to develop applications for your computers. The 
other half, the new programs themselves, are for you to work out. 


1 An All-Purpose Instrument Tuner 


One of the programs in this book provides a guitar tuner. Using the 
sound capabilities of your computer, you can also create a saxophone, 
clarinet, violin, fiddle, trumpet, or all-purpose instrument tuner. 
Instead of string diagrams, you would have to suit the graphics to the 
nature of the different instruments and, therefore, have many differ- 
ent graphics screens in your program. 


2 A Music Tutor 


This program would extend the notion of a guitar chord tutor. It could 
show the fingering of woodwinds, the valve positions on brass, etc. 
You could even develop an extensive music teaching program. 
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3 А Game Spinner 


You can use some of (һе same ideas used in the Dungeons and 
Dragons dice maker to create a game spinner. The spinner differs 
from a usual die in that it can have the same values on different 
sections, or it can have verbal instructions or game moves on it. 
Different sections can also be weighted so that there is not the same 
probability of getting each possible result. Here is an example of what 
a spinner might look like: 


MOVE 
5 
ТАКЕ 
NEW TURN 


COLLECT 
$100 


On the sample spinner there is a greater chance of landing in jail 
than collecting money. Notice that the instructions on the spinner 
refer to game moves and to paying or collecting money. These differ- 
ent modes and weights can easily be incorporated into a customized 
game spinner program. 
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4 А Split Screen Note Pad 


Try to create a note pad that splits the screen in half so that you can 
write on either half, or write on one half and make sketches and notes 
on the other half. Try to build in a way to press a letter or number 
which allows you to control which part of the screen you use. 


5 А Calculator with Memory 


Add a memory storage capability to the calculator program so that 
the results of any calculation can be stored and then used at another 
time. 


6 Animated Guessing Games 


Modify the Gestalt guessing game so that you see small figures run- 
ning all around the screen and have to guess how many there are. 
Remember that animation can easily be done using Control graphics 
and clearing the screen after each positioning of your figures. When 
you draw a figure, clear the screen and then draw the figure in a 
slightly different position or posture you create the illusion of 
animation. 


7 Mandaía Meditation 


Create your own meditation programs playing with the color function 
of your computer. Add sound to the program and see if you can create 
a multimedia work of art. 


8 Pie Chart and Line Graph Generator 


The bar graph generator presented in the book is only one of many 
graph forms that can be programmed. Try to make a line graph. 
(Remember that the bar graph can easily be turned into a line graph 
by turning it on its side and drawing lines from the top points.) Also 
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create a pie graph generator. A pie graph generating program can also 
be used in a game spinner generating program. 


9 Multiple Sorting Address Card Fife 


Modify the address file program so that you can sort by state, city, 
phone number, and comments as well as by name. What this requires 
is that you build routines similar to the one used in the program in 
this book to do name sorting for each line in the address book entry. 


10 Profile Mug Shots 


Using character graphics, change the Mug Shot program from one 
that uses full faces to one that uses profiles. 


11 Multilingual Dictionary 


Create a multilingual dictionary. For example, create a dictionary in 
five languages. Set up the program so that you have a few entries to 
begin with (for example all the pronouns in five different languages] 
and then new entries can be added and saved on disk. This way you 
will not merely have a multilingual dictionary but a dictionary form. 
As you learn more vocabulary, you build your dictionary. Many of the 
routines needed to create such a program can be taken from programs 
listed in this book (the disk storage routine, for example). 


12 Prime Number Generator 


Create a program that starts at 1 and lists the first n prime numbers 
for any integer n. Add another routine to the program in which you 
input any integer and the computer tells you whether it is prime or 
not. 
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13 Least Common Denominator 


Here is another homework helper program. Set up the computer so 
that it will list all the common denominators of any two or three 
numbers and also list the least common denominator. 


14 A Book Title Generator 


We included an excuse generator in our 41 programs. See if you can 
create a book title generator using some of the common book title 
forms such as: 


N РЕТТЕН in the „2...2... (B cic 
List (1) List (2) 

flash pan 

day life 

scream wilderness 


giving such variations as 


A Flash in the Wilderness and 

A Day in the Pan. 

Some other title forms to play with are: The (1) of the 
БЕРЕРІ ZT ³⅛·¾¹AA ет ЕНЕ Da 


15 А Code Maker 


Create a program that will scramble the whole alphabet (instead of 
just a word as in our Word Scrambler] and then turn that scrambling 
into a code. The program should let you put in a word or sentence and 
give you the coded version. It should also let you put in a message in 
that code and translate it back into English. 
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computer subsided, routine chores slowly replaced that initial P 
anticipation. 

41% FUN PROJECTS FOR THE COMMODORE® gives 
you back that wonderful excitement. One of the first Creative 
Pastimes books, from the Reston Computer Group, this 5 
fantastic book shows you 41% good reasons to fall in love suis 
your Commodore all over again. 

In a burst of creative energy, Dale Dishardon and Herbert 
Kohl deliver some fresh ideas that you'll find easy to key in Р еў 
and modify. The 411 projects range all the way from a 44/2 
dating program to a mini word processor. You'll be : "b B" y 
absolutely obsessed with a Dungeons and Dragons dice d 
rolling program, and you'll probably want to take full - b 
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